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ABSTRACT 



This thesis describes the conversion of four computer programs on the Naval Post- 
graduate School IBM 3033AP computer system and their implementation on the 
MicroVax 2000 CAD CAE workstation. The existing 2-D airfoil analysis programs 
DUBLET and PANEL were extensively modified to improve the user interface. The 3-D 
wing analysis program YORLAT also received an updated interface. The JETFLAP 
source program no longer resided on the NTS mainframe and was reconstructed from 
an original source tape and program listing. This program was then converted from 
FORTRAN IV for the CDC 6000 series computers to FORTRAN 77 for use on the 
IBM mainframe and the Micro VAX 2000. An interactive data input program. 
JETFLAPIN. was developed to simplify data input, provide error checking and cor- 
rection and thereby enhance the utilization of the JETFLAP program. The programs 
are intended for use by students in basic and advanced courses in aerodynamics at the 
Naval Postgraduate School, however they are also applicable to a course in 
computaional aerodynamics. 
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THESIS DISCLAIMER 

The reader is cautioned that computer programs developed in this research may not 
have been exercised for all cases of interest. While every effort has been made, within 
the time available, to ensure that the programs are free of computational and logic er- 
rors. they cannot be considered validated. Any application of these programs without 
additional verification is at the risk of the user. 
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II. INTRODUCTION 



Current aerodynamic analysis relies heavily upon numerical methods for estimating 
the aerodynamic coefficients of airfoils and wings. This thesis was undertaken to provide 
the students of the aeronautical engineering curriculum with a series of computer pro- 
grams that would give them a better appreciation and understanding of several compu- 
tational methods that have been applied to classical aerodynamic theory. 

The Department of Aeronautics and Astronautics at the Naval Postgraduate School 
(NPS). in conjunction with the Mechanical Engineering Department, is developing a 
computer-aided design computer-aided engineering (CAD 'CAE) laboratory for use in 
research and teaching by their respective curriculums. The system is based on a network 
of Digital Equipment Corporation (DEC) Micro VAX 2000 workstations. There is an 
ongoing requirement to provide specialized software (programs) for the computer net- 
work that is usable by the students and staff to support current and future courses and 
research. 

At the time of this writing, several aerodynamic analysis programs reside on the NPS 
IBM 3033AP mainframe computer. They are in various states of repair* and due to 
constant software and hardware upgrades of the mainframe system some programs 
provide limited output capabilitics2 while others are becoming unusable due to compiler 
changes. There is also a wide range in the amount and quality of the documentation 
available for each program. This thesis seeks to remedy a portion of this problem and 
support the previously mentioned software needs requirement by providing a set of 
baseline programs and thorough documentation which will extend the life of these val- 
uable programs and allow further upgrades and eventually the incorporation of graphics 
routines by future users. 

The programs contained in this work were selected on the basis of their applicability 
to the present courses taught in basic and advanced aerodynamics at NPS, the doc- 
umentation available and previous user inputs. They were revised or modified with the 

1 Source code is not available for some programs, in particular FL027. Since certain output 
flags for FL027 were set in the source code and the user was unable to alter these, an inordinate 
amount of unwanted output was produced. 

2 Several programs, notably FL027, JETFLP and those used in the Aircraft Combat 
Survivability and Lethality courses have lost their graphical output due to software incompatibility 
problems. 



intent that they be used for preliminary design and to evaluate the changes in aero- 
dynamic coefficients due to changes in one or more of the input parameters. To this 
end. the following factors were empasized in modifying or creating the programs to make 
them easily understood and utilized: 

• Error checking correction capability. 

• Capability to make multiple runs in one session. 

• Capability to change one or more parameters on subsequent runs. 

• Utilize a standardized interface (to the extent possible). 

• Allow user defined names for input output files. 

This document briefly describes the basic theory behind the 2-D airfoil and 3-D wing 
analysis programs and the reprogramming required for transfer and conversion of the 
selected programs from the IBM 3033AP and CDC 6000 series computers to the 
MicroVAX'2000 CAD CAE workstation. 

A users manual foi each program is contained in the appendices. These provide a 
short discussion on the purpose of the program, input requirements and constraints, 
program operation and the program output. A sample input session, input data file (if 
required) and the resulting output as well as a complete program listing is also included. 

Project results and recommendations for future work are given. 
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III. BASIC THEORY OF 2-D AIRFOIL ANALYSIS PROGRAMS 



A. INTRODUCTION 

The following sections are intended to present the reader with a basic understanding 
of the ideal fluid flow concepts underlying the 2-D airfoil analysis programs. This brief 
summary contains just a few highlights which would be obtained from a course in the 
fundamentals of aerodynamics and in no way attempts to provide the reader with a firm 
foundation in aerodynamics or fluid flows. 

It will be assumed that the reader is familiar with the concepts of velocity potential, 
0, stream function, if, and their derivatives. It is further assumed that the reader has 
some familiarity with the concepts of the basic fluid flows: uniform stream, source, sink, 
vortex and doublet. Figure 1 depicts these basic fluid flows and provides and example 
of how two of these flows, a uniform stream and a doublet, may be combined to model 
the flow over a cylinder. A thorough discussion of these flows and their properties may 
be found in most aerodynamics texts. References 1, 2, 3 and 4 were instrumental in the 
preparation of the following sections. 
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B. PROGRAM DUBLET 

The tvpe of analysis used here is a direct method in which the shape of an ellipsoid 
or airfoil-like body is specified and the problem is to solve for the distribution of 
singularities which, in combination with a uniform stream, produce the flow over the 
body. 

This program provides a numerical method for approximating the solution of the 
integral equation for the line doublet distribution for a symmetrical airfoil at zero lift in 
incompressible irrotational flow. With the doublet strength known, the velocity field can 
be determined using equations for the stream function and velocity potential. Once the 
velocity field is known, the pressure field may be determined using the Bernoulli 
equation. 

For this problem the airfoil body shape is specified asy = Y(x). It is a closed form 
which has a finite length or chord, c as shown in Figure 2. 




Such a shape can be defined by an equation of the form: 

Y(x)-Ajf(c-x) (1) 

This shape is to be modeled by a string of doublets along the x axis, and the strength 
of each doublet to be determined. The solution is required to meet the flow tangency 
condition and the doublets are required to be within the body. 

Since thin-airfoil theory fails near the stagnation points and it is not physically 
possible for the source distribution to extend to the ends of the body and still meet the 
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flow tangency condition, there must exist a finite distance between the ends of the source 
distribution and the stagnation points. 

This distance is determined by approximating the shape of a blunt-nosed airfoil near 
its nose, a: = 0, as parabolic. Using thin-airfoil theory and the radius of curvature 
(Figure 3). the source strength near the leading edge of the source distribution can be 
approximated. Applying this approximation and the requirement that the source- 
induced velocity must cancel that of the onset flow at the stagnation point, it can be 
shown [Ref. 1 pp. 52-54], that the separation distance between the stagnation point and 
the leading edge of the source distribution is approximately half the radius of curvature 
of the nose of the body. A similar analysis holds for the other end of the body. 



Figure 3. The Radius of Curvature of a Leading Edge 

The program DUBLET incorporates the half radius of curvature inset and satisfies 
the flow tangency requirements using an iterative approach. This is done by taking an 
approximation to the proper inset, solving the set of simultaneous equations for the 
doublet strength distribution which satisfies the flow tangency condition and then eval- 
uating the resulting velocity at the stagnation points. If the velocity is not sufficiently 
close to zero, the estimated values are revised and the process is repeated. The iterative 
approach used is an interval-halving or bisection method of root-finding similar to that 
described in Ref. 5. 

A more complete development of the thin-airfoil theory' and the underlying 
equations used to derive this method are detailed by Moran [Ref. 1]. 




X 
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C. PROGRAM PANEL 



This analysis again uses the direct method to solve for the proper distribution of 
singularities? on a body which, in combination with a uniform stream, provide the flow 
over the body. 

This program uses a numerical approach to provide an approximation to the sol- 
ution of the integral equation for the source and vortex distribution on the surface of a 
lifting body in incompressible irrotational flow. It is specifically designed to evaluate 
NACA four- digit airfoils and NACA five-digit airfoils of the 230XX series; however 
provisions are made within the program for entry of any arbitrary airfoil shape. 

The following presents some reasons for and a brief development of the panel 
method. Although thin airfoil theory gives reasonably good results for lift and moment 
coefficients, it ignores the effect on those coefficients of the thickness distribution. In 
addition, thin airfoil theory gives good pressure distribution results only away from the 
stagnation points. Since proper design of an airfoil requires an accurate prediction of 
its pressure distribution, more powerful methods are based on the distributions of 
sources and vortices or doublets. This is empasized by Moran when he states 

"To avoid the inaccuracies of thin-airfoil theory, the fiow-tangency condition must 
be satisfied on the body surface and. ..the singularities should be distributed on the 
body surface rather than on the chord line or any other line within or without the 
body." 

To achieve this placement of the singularities on the body, the body surface is ap- 
proximated by a collection of straight line panels. This form of surface approximation 
is where the panel method receives its name. Program PANEL uses a solution method 
based on sources and vortices distributed on these surface panels. 

The potential for this flow may be described as 



0 = 0oo + 0S + 0!’ 



( 2 ) 



where <f>„ is the potential of the uniform onset flow, which can be written in a Cartesian 
system as 



0 C o = V oo x cos a + V^y sin a 



(3) 



3 "Singularities" is used here as a generic term for sources, vortices, doublets and other funda- 
mental solutions of the Laplace equation that blow up--are "singular"— at some point outside the 
flow field. 
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where is the velocity of the uniform flow, and a is the angle between the flow direc- 
tion and the .y axis. The remaining potential terms are defined as 




H) 




( 5 ) 



in which the integrations are over the body surface. This defines 4> s , as the potential 
of a source distribution of strength q(s) per unit length and 4> v , as the potential of a 
vortex distribution of strength y(s) per unit length. Figure 4 shows that 5 is the distance 
measured along the surface from some arbitrary reference point-in this case the leading 
edge has been chosen--to the “'field point", (.yj-) , or (r, 0) in polar coordinates. 



Figure 4. Nomenclature for the Analysis by the Panel Method 

We seek a solution where q(s) and y(s) are determined so as to meet the boundary con- 
dition of flow tangency and the Kutta condition. The latter is the requirement that the 
stagnation point be at the trailing edge-h 

The view of this problem taken by Hess and Smith (Ref. 6] is that the source 
strength governs the flow tangency condition and the Kutta condition governs the 

4 All airfoils considered here are assumed to have sharp trailing edges. 



n 




x 



S 



vortex strength*. They make the simplifying assumption that the vortex strength is 
taken constant over the whole airfoil, i.e. y(s) = y , and justify this by reasoning that, 
since the Kutta conditicn governs the vortex strength, and the Kutta condition involves 
only the trailing edge, then the vortex strength can be represented by a single number. 
Conversely, the source strength must vary over the surface to allow the flow tangency 
condition to be satisfied at all points on the body surface. 

The integrals of equations (*1) and (5) are difficult to evaluate unless the surface on 
which the singularities are distributed is a straight line. This is where the surface panels 
come into play. The body is divided up into a set of panels by selecting a set of .V points, 
called nodes , which are then connected by straight lines. This results in an approxi- 
mation of the body composed of A' nodes and panels as shown in Figure 5. 




The sources and vortices are distributed on the straight line panels and the constant 
vortex strength assumption is incorporated so that the potential given by equation (2), 
as developed in equations (3) through (5), may be written as: 



<t> = V^x cos a + V^v sin a + 




q{ s) 

2n 



In r 



ds 



( 6 ) 



5 In actuality, both singularity distributions are important in satisfying either condition. 
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To allow evaluation of the integrals in equation (6), the source strength is taken to 
be constant on each panel, but allowed to vary from panel to panel, i.e. 

q{s) = eh on panel /, / = (7) 

The parameters to be determined are then the A' source strengths q, and the single 
vortex strength y. These are found by imposing the flow tangency condition at A’ control 
points and a corollary to the Kutta condition which states. "Near the trailing edge, the 
flow speeds on the upper and lower surfaces of the airfoil are equal at equal distances 
from the trailing edge. "[Ref. 1] 

Moran [Ref. 1] preides a clear explanation of the geometric development of the 
problem and the resulting set of N + 1 equations in the unknowns q,. i = l....,A', and 
y. This leads into a discussion regarding the development of a FORTRAN program that 
uses the panel method. Program PANEL sets up and solves this set of equations. The 
tangential velocity at the midpoint of each panel is then evaluated and its associated 
pressure coefficient C p is calculated. By assuming the latter to be constant over each 
panel, the estimated lift and moment may then be calculated. 
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IV. BASIC THEORY OF 3-D WING ANALYSIS PROGRAMS 



A. INTRODUCTION 

As discussed in the previous section on 2-D airfoil theory, there are several ways to 
model the source of forces acting on a body surrounded by a moving fluid. These in- 
cluded potential functions, vortex distributions, circulation distributions and pressure 
differential distributions. These models are related to one another and each has advan- 
tages and disadvantages. Both of the following programs. VORLAT and JETFLAP, rely 
on a distribution of discrete horseshoe vortices to model the flow over a wing. 

1. The Horseshoe Vortex 

To provide the reader with an understanding of the theory behind the VORLAT 
and JETFLAP programs, it is necessary to explain what a horseshoe vortex is and what 
properties it has. References 1, 2, and 3 provided a basis for much of the material con- 
tained in this section. 

The idea of th. horseshoe vortex was developed by Prandtl and Lanchester 
while trying to provide a simplified model of the ideal flow over a wing. Prandtl rea- 
soned that a vortex filament of strength T. bound to a fixed location in a flow- a bound 
vortex-will experience a force L = p QO \' x F from the Kutta-Zhukovsky theorem. To 
satisfy Helmholz' theorem which states that a vortex filament cannot end in a fluid, the 
vortex filament continues as two free vortices extending downstream from the wing tips 
to infinity. The construction of this vortex is in the shape of a horseshoe and it is 
therefore called a horseshoe vortex. It is correctly pointed out however by Zucker that, 
"...the word "horseshoe", although in common usage, is misleading since these filaments 
are actually "closed" back at the place where the motion originated. "[Ref. 3] 

As shown in Figure 6. the wing is replaced by a "lifting line" perpendicular to 
the flight direction and located at the quarter-chord, with the two free vortices trailing 
from the wing tips. 




Finite wing Horseshoe vortex 



Figure 6. Replacement of the Finite Wing with a Bound Vortex [Ref. 2] 

This mode! did not provide a very realistic simulation of the downwash distrib- 
ution of a finite wing; especially near the tips where the predicted downwash approaches 
an infinite value. The downwash distribution as a function of the span. u(y). is shown 
in Figure 7. 



Trailing vortex 




Figure 7. Downwash Distribution Along y Axis for a Horseshoe Vortex [Ref. 2] 
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An improvement on this model was the ' lifting line" model which superimposed 
a large number of horseshoe vortices, each with a different length of bound vortex, but 
with all the bound vortices lying along a single line. This is depicted in Figure S which 
has three horseshoe vortices of strengths, AT,, AT, and ATj. The variation of T along 
the lifting line is denoted by the vertical bars. Since L oc T, this is also an indication of 
the lift distribution. It should be noted that the strength of each trailing vortex is equal 
to the change in circulation along the lifting line at the point where the trailing vortex 
starts. 




Figure 8. Superposition of Three Horseshoe Vortices Along a Lifting Line [Ref. 2] 



This model is good for high aspect ratio straight wings and provides an excellent 
prediction of spanwise loading and overall lift. It cannot however, produce chordwise 
pressure distributions and moment data. 

To deal with low aspect ratio straight wings, the model is extended by placing 
a series of lifting lines on the plane of the wing at different chordwise stations, all parallel 
to they; axis. In the limit of an infinite number of these lifting lines, we obtain a vortex 
sheet, where the vortex lines run parallel to they; axis. The strength of the sheet per unit 
area is denoted by y, where the latter varies in they direction in a manner analogous to 
the variation of T for the single lifting line. In addition, each lifting line will have, in 
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general, a different overall strength, so that y also varies with x. This relation, 
y = y(jr v r) is shown in Figure 9. 




This vortex sheet results in a lifting surface distributed over the entire planform 
of the wing. The strength of the lifting surface at any point on the surface is given by 
y = y(.r v v). The aim of the lifting surface theory is to find y(.v v v) such that the fiow- 
tangency condition is satisfied at all points on the wing. 

For computational purposes the planform is divided into a finite number of 
square or rectangular panels and the ijih panel chosen for initial computation. The 
spanwise vorticity on each panel is assumed to be concentrated at the quarter-chord 
point of the panel and the flow tangency condition is satisfied a; the "control point" 
which is located at the three-quarter chord point of the panel [Ref. 1). The wing problem 
then reduces to computation of the velocity at the control point on this ijih panel due 
to all the other panels. This velocity is combined with the freestream value and the 
tangency condition applied. For each panel, there is therefore, one linear equation and 
with .V panels there are .V such equations. Matrix methods are applied to solve this 
system and with the vorticity distribution known, the Kutta-Zhukovsky theorem is ap- 
plied to obtain the lift and moments. The induced drag can be computed from the 
downwash, which is known at the control points. The vortex-lattice method used by 
program YORLAT is a simple approach used to solve for y = y(.r v i). 
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B. PROGRAM VORLAT 

Program VORLAT implements the vortex-lattice method to determine the solution 
for the vortex strength distribution on a flat, untwisted, rectangular wing. A set of 
horseshoe vortices are used to approximate the flow over a wing of low aspect ratio. 
This is a version of the VORLAT program by Moran [Ref. 1] which has been highly 
modified and now incorporates a cosine spacing scheme. 

The User's Manual presents a short description of the VORLAT program. For 
complete coverage of the original VORLAT program, consult Moran [Ref. 1]. 

C. PROGRAMS JETFLAP AND JETFLAPIN 

Program JETFLAP was written by M. L. Lopez, C. C. Shen. and X. F. Wasson 
at the Douglas Aircraft Company, Long Beach, California. The program is based on 
A Theoretical Method for Calculating the Aerodynamic Characteristics of Jet-Flapped 
Wings [Ref. 7] which was developed under a research contract sponsored by the Office 
of Naval Research. The program is quite extensive and has the capability of determining 
the following aerodynamic characteristics of wings of arbitrary planform: 

• Spanwise and chordwise loading 

• Spanwise variation of induced drag 

• A capability to investigate the ellects of: 

Part span flaps 

Part span blowing 

Pitching, rolling, yawing and sideslip 

• Total lift and induced drag (momentum method), pitching, yawing and rolling mo- 
ments, etc. 



The program also provides the capability to investigate the effects of a variation of 
leading and trailing flap deflection, camber, twist, jet deflection and jet momentum. 

Despite the many capabilities of this program and the revised User's Manual devel- 
oped by Soderman [Ref. S] in 1976, the program has had limited use at the Naval Post- 
graduate School since then. This author feels that a major reason for its lack of use is 
the inordinate amount of time required for the user to prepare and input the data file for 
even the most elementary planform. 

To alleviate this problem, the author developed Program JETFLAPIN, an interac- 
tive data entry program to interface with the JETFLAP program. To ensure compat- 
ibility, much of JETFLAPIN was created using existing subroutines from JETFLAP. 
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The JETFLAPIX program provides the user with a method of developing an almost 
error-frec6 input data file for use with the main JETFLAP program. 

The JETFLAPIX program provides error-checking, data review correction, assur- 
ance that all required data has been entered and the elimination of redundant data entry. 



6 While it is still possible for the user to input bad data values, the errors due to values out 
of Emits or incorrect formatting have been viitually eliminated. 
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V. PROGRAM TRANSFER AND CONVERSION 



A. INTRODUCTION 

This section discussed the steps taken in the transfer of the programs DUBLET, 
PANEL, VORLAT and JETFLAP from the IBM mainframe computer and their con- 
version for use on the Micro VAX 2000 workstation. The information provided here will 
be of use to others planning future transfers of programs between the IBM mainframe 
computer and the MicroVAX 2000. 

B. FILE TRANSFER 

1. Programs DUBLET, PANEL, VORLAT 

The programs DUBLET, PANEL and VORLAT, were located on the IBM 
mainframe under the user account 46.32P. which was set up for use by the Numerical 
Methods course, AE 4632, taught in the Aeronautical Engineering Department.' Each 
program was opertational on the mainframe and was activated through the use of an 
executive calling routine referred to as an "EXEC". These EXECs and the program 
source code files were readily available for transfer. 

Each program and its calling EXEC were transferred to the VAX 1 1 '780 located 
in the Computer Science Department. This was necessary as the AE ME VAX network 
is not currently linked with the IBM mainframe. This transfer was conducted by Mr. 
David Marco, a computer technician working on the AE ME VAX system, using the 
VAX 27S0 37S0 Protocol Emulator. The file transfer procedures outlined in a Computer 
Science Department handout covering the RJE File Transfer Package were followed. 
When the transfer was completed, the files were downloaded to a magnetic tape car- 
tridge, a DEC TK50. 

The tape was then taken to the MicroVAX 2000 workstation and loaded into 
the DEC TK50 tape drive subsystem connected to the workstation. The files were then 
tranferred from the tape to the workstation's hard disk. From here the files could be 
edited using the VAX EDT editor [Ref. 9], compiled, linked and run under VAX 
FORTRAN version V4.0. 

7 The read-only password for this account is JVII. 
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2. Program JETFLAP 

Program JETFLAP had to be handled quite differently than the other programs. 
It too was operational on the mainframe, however it had been converted into a cata- 
loged procedure, JETFLP. and was executed using a Job Control Language (JCL) rou- 
tine. An example of this JCL file is shown in Figure 10. More information on how to 
create and use JCL files may be found in the User's Guide to MVS at NPS [Ref. 10] or 
the IBM JCL User's Guide [Ref. 11]. 



//TAPER JOB ( 1461 , 1478) , ’DOUGLAS JETFLAP PRGM* ,CLASS=C 
//■•MAIN ORG=NAVPGS. 146 IP 
// EXEC JETFLP 
//SYS IN DD * 

Tapered Swept Wing, AR=8, Sweep Angle 45, 10X10 W/Semi-Circle Spacing 



50. 0000 


20. 000 


0 . 0 


10. 43 


10. 43 






1001000001020000 












. 993844 


. 969372 


. 921032 


. 850012 


. 758062 


. 647446 


. 520888 


. 381504 


. 232726 


. 078217 










01010101010101010101 












10 














. 000000 


. 024472 


. 095492 


. 206107 


. 345492 


. 5000 


. 654508 


. 793893 


. 904508 


. 975528 










8. 0 


45. 0 


0.45 
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/* 

// 



Figure 10. Sample JETFLAP Batch JCL File 



After an exhaustive search by the personnel of the W. R. Church Computer 
Center at the NPS, it was determined that only the compiled version of the program 
existed on the IBM mainframe. The source code had been purged from the system and 
was not recoverable. 

A magnetic tape containing the original Douglas Aircraft Company program 
was obtained from Dr. M. F. Platzer. This copy had been obtained during thesis work 
conducted by LCDR A. P. SODERMAN. The tape was logged into the NPS computer 
center and its characteristics were determined using the tape scan JCL utility shown in 
Figure 11. 



IS 



//JETFLP JOB ( 1461, 9999), ' JETFLP TSCANl' ,CLASS=E 

//*MAIN SYSTEM=SY2 , RINGCHK=NO 

//* 

//* Print tape file characteristics for any tape 
//* 

// EXEC TSCAN , VOLIN=JETFLP , DCB IN= ' DEN=2 1 , UNITIN= ' 3400-4 1 

// 



Figure 11. Magnetic Tape Scan Utility (TSCAN) JCL File 



The tape scan utility revealed that the tape used a vert’ old tape density of 800 
BPI. The computer center still had an 800 BPI magnetic tape machine, however they 
recommended that the contents of this tape be copied onto a new tape using the more 
common density of 1600 BPI. This was accomplished using the magnetic tape copy 
utility JCL file shown in Figure 12. The name of the original tape volume was JETFLP. 
This was changed to JTFLAP on the new copy. 



// JCOPY JOB (146 1,9999),' JETFLP COPY 1 ,CLASS=E 
//* 

//* COPY TAPE FILE FROM 800BPI TO ANOTHER AT 1600BPI 

ti- 
ll EXEC TAPE, VOLIN= JETFLP, DCB IN='DEN=2' ,UNITIN=' 3400-4' , 
// V0L0UT= JTFLAP 
//SYS IN DD * 

CPYEND( 10,11) 

I'- 

ll 



Figure 12. Sample Tape Copy JCL File 



Several parity errors occurred while reading the original tape during the copying 
process. This was an indication that the files contained on the original tape or those 
obtained through the transfer process may contain errors. 

To discover the contents of the tape, a magnetic tape dump utility JCL file was 
used. This file is shown in Figure 13. 
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/ /JTFLAP JOB (1461,9999),' JTFLAP TAPE1 ' , CLASS=E 

//*MAIN SYSTEM=SY2 ,RINGCHK=NO , LINES=( 10) 

//••• 

//* PRINT THE CONTENTS OF EVERY FILE ON THE TAPE. 

ti- 
ll EXEC TAPE, VOLIN= JTFLAP 
//SYSIN DD * 

DMPFIL( 10,256,1) 

/* 

// 



Figure 13. Sample Tape Dump Utility JCL File 



A quick review of the printout of produced by this utility revealed that the tape 
did contain a complete set of the desired files and these were transferred to the author's 
working disk (A disk) using the procedures outlined in Reference 12. The JCL file used 
to perform the transfer from tape to the mainframe is shown in Figure 14. 



//JTFLAP JOB (1461,9999), 'JETFLAP TRANSFER' ,CLASS=A 
// EXEC PGM=IEBGENER 
//SYSPRINT DD SYS0UT=A 
//SYSIN DD DUMMY 

//SYSUT1 DD DISP=SKR,DSN=MSS. C0052. JETFLP 

//SYSUT2 DD UNIT=3350 ,VOL=SER=MVS004,DISP=( NEW, KEEP) , 

// SPACE=( CYL ,(1,1)), 

// DCB=(RECFM=FB ,LRECL=80 ,BLKSIZE=8000) , 

// DSN=S 1461. JETFLP 

// 



Figure 14. Sample Tape Transfer JCL File 



The file was edited to remove the extra lines associated with the transfer process, 
specifically header, trailer and system information lines associated with the JCL tape 
transfer utility. The transfer process also places the record number and record length 
at the beginning of each record. These were removed. The edited version of the pro- 
gram consisted of 4661 lines of FORTRAN code. 
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Examination of the program file revealed that erroneous pieces of informations 
had crept into the source file. These were due to either the transfer process itself or ef- 
fects of the environment and aging on the magnetic tape. Regardless of their source, 
these errors corrupted the source code to such a degree that it would not compile prop- 
erly on the mainframe. 

An attempt to compile the program was made using the VS FORTRAN com- 
piler with its extended error messages^ to locate as many errors as possible. The listing 
which was produced flagged all critical areas of the program which required revision. 
Corrections to the program were made using the listing as a guide. Corrections to 
non-critical areas of the program, such as comment lines, were made using the program 
source code listings contained in References S and 7 as guides. 

It was noted during the editing process that no further errors were encountered 
in the program following line 2462. This leads the author to the conclusion that the er- 
rors were not due to the transfer process, but solely due to defects present in the outer 
windings of the source tape. 

Following completion of the editing process, the program was compiled satis- 
factorily. Since the program was written using several commands specific to FORTRAN 
IV it was necessary to compile the program using the (LVL(66)) option with the VS 
FORTRAN compiler. This invokes the FORTRAN IV version of the VS FORTRAN 
compiler which allows proper interpretation and compilation of older programs written 
under the FORTRAN IV standard. 

The successfully compiled JETFLAP program was then run using the sample 
data files provided in References S and 7 as input files. The results were then compared 
to those tabulated in References S and 7 which were obtained using the same data files. 
A slight difference was discovered between the computed values for the moment coeffi- 
cients (CM and CMG). This difference was traced to a program line for C.VIG(K) in 
Subroutine SLOAD which had been modified in [Ref. 8: p. 338] and [Ref. 7: p. C- 19]. 
but had not been corrected on the version of the program contained on the source tape. 
Modification of this line and subsequent compilation and running of the program 
produced results identical to those contained in References 8 and 7. An additional 

8 The erroneous data consisted of extra spaces, non-standard characters and improperly in- 
terpreted characters, i.e., several O's were interpreted as M's. 

9 The WATFIV compiler is more thorough and produces an even greater number of messages. 
It is recommended for use on smaller programs or in the final stages of program development due 
to its extensive output. 



comparison was made with the data file and results produced by S. M. White, as part 
of a class project for AE 3501 [Ref. 13]. Again the results were identical. It was then felt 
that the program was ready to be ported over to the Micro VAX 2000. 

The JETFLAP program was transferred from the IBM mainframe to the 
Micro VAX 2000 in the same manner described previously. It was compiled using the 
XOF77 qualifier under VAX FORTRAN and appeared to compile successfully. When 
a sample run was executed, the program terminated abnormally. This began an ex- 
tended period of debugging to achieve proper operation of the program on the 
MicroVAX 2000. 

C. CONVERSION AND REPROGRAMMING 
1. Programs DUBLET, PANEL, VORLAT 

The programs DUBLET. PANEL and VORLAT were written to 
FORTRAN 77 standards and therefore required little modification to become opera- 
tional on the MicroVAX 2000. The only significant changes required involved the 
handling and assignment of input and output data files. As discussed in the section on 
file transfer, each of these programs had an EXEC file which related to it. Each EXEC 
contained the name of the program to be run and its associated file definition statements. 
The file definition statements. FILEDEFs. assign input output devices and were used to 
define input and output file names and attributes and associate these with the logical 
unit numbersio assigned in the called program. An example of these FILEDEFs, with 
the FILEDEF command abbreviated to FI, are shown in Figure 15. More information 
on these may be found in the User's Guide to VM CMS at NTS [Ref. 14] or the IBM 
CMS Command Reference [Ref. 15]. 



10 A logical unit number is specified or implied as part of the I/O statement and it designates 
the device or file to or from which data is transferred. Louical unit numbers are integers from 0 to 
99. 



&TRACE ON 

FI 1 DISK JTFLAP DAT1 B (RECFM F LRECL 2400 BLKSIZE 2400 DSORG DA 
FI 2 DISK JTFLAP DATA2 B (RECFM VBS LRECL 560 BLKSIZE 3460 

FI 3 DISK JTFLAP DATA3 B (RECFM VBS LRECL 860 BLKSIZE 3460 

FI 4 DISK JTFLAP DATA4 B (RECFM VBS LRECL 860 BLKSIZE 3460 

FI 5 DISK JTFLAP DATAIN (PERM 

FI 6 DISK JTFLAP DATAOUT (RECFM FBA LRECL 133 BLKSIZE 3325 

GLOBAL TXTLIB VFORTLIB CMSLIB 
LOAD JTFLAP 

GLOBAL LOADLIB VFLODLIB 

CLRSCRN 

START * 

&TYPE COMPUTING PROCESSING IS COMPLETED 



Figure 15. FILEDEFs in a Sample JTFLAP EXEC File 



Although the use of EXEC files and TILEDEFs is relatively easy and is com- 
mon practice on the IBM mainframe, they are part of the VMS operating system and 
are not in accordance with FORTRAN 77 standards. The VAX VMS operating system 
does have a similar capability using the COMMAND or .COM file, however in an effort 
to make the programs more machine independent and compliant with the 
FORTRAN 77 standard, it was decided to open and define input and output files within 
each FORTRAN program. 

The use of the OPEN statement causes a logical unit number (device) to be as- 
signed for input and or output. Within the OPEN statement specific characteristics of 
the file such as record size, file type, type of access, file status, etc., are defined. An ex- 
ample of such an OPEN statement is shown in Figure 16. 
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C OPEN' FILE FOR DATA FILE INPUT 
OPEN (UNIT=LUN, 

2 FILE= ' INFILE ' , 

2 ORGANIZATION* 'SEQUENTIAL' , 

2 ACCESS= 'SEQUENTIAL', 

2 RECORDTYPE= ’VARIABLE', 

2 FORM= ' FORMATTED ' , 

2 STATUS= 'OLD') 

C OPEN SCRATCH FILE FOR MATRIX INPUT TO SOLN ROUTINE 
OPEN (UNIT=2 , 

2 FILE= 'JTFLAP2.DAT', 

2 ORGANIZATION= ’SEQUENTIAL’, 

2 ACCESS* ’SEQUENTIAL’, 

2 RECORDTYPE= ’VARIABLE’, 

2 FORM* ’UNFORMATTED’, 

2 STATUS* ’SCRATCH’) 



Figure 16. Sample OPEN Statement 



Much of the information shown in these OPEN statements may be defaulted, 
that is. if a qualifier is not input by the programmer, a predetermined response is set by 
the compiler. The attributes have been shown here for clarity and to enhance portabil- 
ity. Since not all compilers use the same defaults, it is important to know as much as 
possible about the file attributes when transferring programs from one machine to an- 
other. General information on these qualifiers may be found in most FORTRAN texts 
and specifics for the MicroVAX 2000 may be found in the VAX FORTRAN Manuals 
[Refs. 16 and 17 ]. 
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VI. RESULTS AND RECOMMENDATIONS 



The objectives of this thesis study have been achieved. A set of four FORTRAN 
programs for basic aerodynamic analysis are available for student projects on the 
Micro VAX 2000 CAD CAE workstation. The following programs have been success- 
fully transferred from the NPS IBM mainframe computer and are operational on the 
Micro VAX, '2000. 

• Program DUB LET 

• Program PANEL 

• Program VORLAT 

• Program JETFLAP 

In addition, an interactive program, JETFLAP1X, has been developed and implemented. 
The programs are easy to use. JETFLAP being an exception, and they provide the de- 
sired attributes of data review correction, multiple run capability and error-checking. 
A users manual for each program was created. These manuals along with sample 
input output Files and complete program listings are contained in the appendices. 

The programs were tested to ensure their accuracy and completeness following 
conversion. This was accomplished by comparing the output files generated by the IBM 
mainframe and the Micro VAX 2000 for identical input files. The numerical output 
values were generally in agreement to the fourth decimal place or better. When the 
JETFLAP output file for the DOUGLAS.DAT easel 1 was compared to the output file 
in Ref. 7, it was found to be numerically exact, save for a few isolated values. 

The results of the 2-D programs DUBLET and PANEL were compared to the ex- 
pected theoretical values and wind tunnel data and showed good correlation. The results 
of program PANEL for the NASA LS( 1 )-00 1 3 airfoil showed excellent agreement with 
those of Ref. 18. Although not its main purpose, the PANEL program is especially 
useful for generating the surface coordinates for an airfoil of the NACA XXXX or 
23XXX series. 

The 3-D program VORLAT, using the cosine spacing option, produced results 
nearly identical to those obtained by Hough [Ref. 19], for a wing of aspect ratio 2. As 



11 Input file used by Douglas Aircraft Co. to validate JETFLAP in their report to ONR. 



mentioned previously, the results of JEITLAP compared well with the results found in 
Refs. 7. S and 13. 

Countless manhours were expended in the editing, debugging and validating of these 
programs, and the result is the desired set of baseline programs for basic aerodynamic 
class projects and research. 

As with all programs, there are still a few more changes that could be made to im- 
prove the utility or flexibility of these programs. The next major step is to provide the 
capability of generating graphical output from the data produced by these programs. 
The programs DL’BLET, PANEL and YORLAT lend themselves quite readily to this 
due to their columnar output form, and in fact, the results shown in Figures 26 through 
34 in Appendix E were produced on the IBM mainframe using EASYPLOT and 
DISSPLA. 

There is also furthe- work to be done on program JETFLAPIN. Although it is fully 
operational, the data review correction and error-trapping routines were not imple- 
mented for jet-flapped wings due to time constraints. A user inputing data for a con- 
ventional unblown wing of arbitrary or trapezoidal planform will not be aware of this 
deficiency. 

Although the JETFLAPIN program performs its designed task of assisting the user 
in creating the properly formatted JETFLAP input file, a few suggestions for improve- 
ment are considered relevant. 

• The program should allow the user to define the number of spanwise and chordwise 
divisions and then automatically compute the required coordinates using a semi- 
circle or similar scheme. 

• The program should provide graphical display of the spanwise and chordwise 
loadings for the fundamental and composite cases. The section loadings to be 
plotted should be user selectable. 

• The capability to read in and either continue or modify an existing file would be 
quite useful. This would be an improvement over using the EDT editor to modify 
(and possibly corrupt) the properly formatted file. 



26 



APPENDIX A. PROGRAM DUBLET USER S MANUAL 
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Introduction 

The purpose of the DUBLET program is to determine the piecewise constant doublet 
strength m(i) for a line doublet distribution of an elliptic or airfoil-like shape at zero 
angle of attack. The points i, represent the location of the doublets along the chord or 
line of symmetry. They are concentrated near the ends of the distribution, using a cosine 
spacing method, where the variation of the doublet strength is expected to be most rapid. 
The point r, corresponds to and r v corresponds to the endpoint x r The abscissas .v, 
of the points at which the integral equation is satisfied are chosen as the midpoints of 
the subintervals on which the doublet strength is constant, i.e., x, = (r, + /,_,)/ 2 . 

The stream function can be calculated from the doublet strength distribution. From the 
stream function, the velocity components and the pressure coefficients may be calcu- 
lated. The surface shape is defined by y = 7(.v) and the solution must satisfy the 
boundary conditions at the leading and trailing edge stagnation points. 

Assumptions and Limitations 

The approach taken to develop this method of solution assumes that the source and 
doublet strength functions are both piecewise-constant. It is also important to remem- 
ber that this solution is for incompressible and in viscid irrotational flow. Since the 
bodies under investigation are symmetrical and at zero angle of attack, there is no lift 
or induced drag produced. In addition, there is no drag since we are considering an 
inviscid fluid. 

Input Description 

There are very few input values required for this simple program. Their description and 
program variable name c are listed below. 

NTYPE - Type of body shape; elliptic or airfoil-like. 

TAU - Thickness ratio. (Maximum thickness chord) 

XMAXY - Chordwise location of the point of maximum thickness. (Airfoil only) 

N - Number of intervals. 2 < N < 100 
XS - Doublet distribution starting point. 

XF - Doublet distribution ending point. 

NXTOL - Exponent value used to generate the convergence criterion XTOL. 

NFTOL - Exponent value used to generate the convergence criterion FTOL. 
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XTOL - X location tolerance. 

FTOL - X location tolerance. 

Sample Problem 

A few sample problems will illustrate the use of the DUBLET program. The first run 
will be done using an ellipse of thickness ratio 0.1. The second run will analyze an 
airfoil-like shape with a thickness ratio of 0.12 and a chordwise location of maximum 
thickness of 0.30. 

Starting the Program 

Begin with the screen showing the DCL prompt, which looks like this. 

S 

Next, ensure that the program is in your directory by typing 

DIR [Return] 

and viewing the files for DUBLET.EXE and DUBLET. OBJ. If only the DUBLET. FOR 
file exists, you must compile the program by typing, 

FOR DUBLET [Return] 

The next step is to link the program by entering, 

LINK DUBLET [Return] 

The files DUBLET.EXE and DUBLET. OBJ will now exist and you will be able to run 
the program. 

Running the Program 
To run the program, type 
DUBLET [Return] 

The program will start and the screen should look similar to what is shown in 
Figure 17. 
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PROGRAM DUBLET : VERSION 2 : 3 AUGUST 88 

DOUBLET DISTRIBUTION METHOD IS USED TO DETERMINE 
INCOMPRESSIBLE FLOW AROUND AN ELLIPSE OR 
SYMMETRICAL AIRFOIL AT ZERO ANGLE OF ATTACK 

PROGRAM ASSUMES A NOND I ME NS I ONA L CHORD, THAT IS, 
THE VALID RANGE OF X IS FROM 0 TO 1. 

ENTER TYPE OF BODY SHAPE DESIRED: 

1) ELLIPTIC OR 

2) SYMMETRICAL AIRFOIL-LIKE 
ENTER 1 OR 2. 



Figure 17. Initial Screen for Program DUBLET 



For the elliptic case respond to the request by entering 

1 [Return] 

Respond to the request for the thickness ratio by entering 

0.1 [Return] 

Now enter the number of intervals you desire the doublet distribution to have by enter- 
ing 



10 [Return] 

The screen should now look like what is shown in Figure IS. 



WHICH METHOD DO YOU WISH TO USE TO DETERMINE THE 
DOUBLET DISTRIBUTION ENDPOINTS? (1 OR 2) 

1) PROGRAM INTERVAL-HALVING SUBROUTINE TO ITERATE. 

2) MANUAL ITERATION BY THE USER. 



Figure 18. Endpoint Determination Method Selection Screen 



Respond to the question by entering 

1 [Return] 

If you should desire to enter your own values, enter 2. 
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The next values you will be required to enter are for the X location tolerance and the 
stagnation point velocity function tolerance. It is recommended that values of 1UE-6 
(0.000001) be used. The maximum number of iterations should be set at a value of at 
least 20 when using such small tolerances. 

The output parameter entry has only to do with the interval halving subroutine. Unless 
you are having problems with the program or are interested in the convergence of the 
solution, it is recommended that this value be set to zero (0). 

Following entry of the output parameter, the program begins the solution process. It 
returns with U0 and Ul, the values for the X velocity component at the stagnation 
points and the values for XS and XF, the beginning and ending points of the line doublet 
distribution. If the values for L’0 and Ul are sufficiently close to zero, say less than 
10E-3 (0.001), then enter 
V [Return] 

If you desire more accuracy, enter 

N [Return] 

and then reenter the tolerance and maximum iteration values. Responding with a (Y) 

will cause the program to proceed to the output stage. Values will be printed to the 

screen and to the following data files: 

DUE LET. DAT : DOUBLET STRENGTH DISTRIBUTION 

SHAPE. DAT : BODY SURFACE COORDINATES 

PRESSURE. DAT: SURFACE PRESSURE DISTRIBUTION 



You will be asked for the number of pressure coefficient output points you desire. This 
number is independent of the number of intervals of the line doublet distribution. It 
affects only the number of output data points and not the accuracy of the solution. The 
program now asks if you want to make another run. Enter 

1 [Return] 

This time the sample problem will work through the airfoil-like shape case and the user 
will supply the values of XS and XF. The user may experiment with manual iteration, 
however to save space this sample will use previously determined satisfactory values of 
XS and XF for the initial guess. 
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You should now be back at the initial screen and it should look like Figure 17. For the 
airfoil-like case enter 

2 [Return] 

Respond to the request lor the thickness ratio by entering 

.12 [Return] 

For the chordwise location of maximum thickness, enter 

.30 [Return] 

Now enter the number of intervals you desire the doublet distribution to have by enter- 
ing 

10 [Return] 

The next step is to select the method for the determination of the endpoints for the 
doublet distribution. The screen should look like Figure 19. 



WHICH METHOD DO YOU WISH TO USE TO DETERMINE THE 
DOUBLET DISTRIBUTION ENDPOINTS? (1 OR 2) 

1) PROGRAM INTERVAL-HALVING SUBROUTINE TO ITERATE. 

2) MANUAL ITERATION BY THE USER. 



Figure 19. Endpoint Determination Method Selection Screen 



This time respond to the question by entering 

2 [Return] 

For the doublet distribution starting point, XS. enter 
.0082129128 [Return] 

For the doublet distribution ending point. XF. enter 
.9994138 [Return] 

As with the previous example, the program now begins the solution process. It returns 
with L'O and Ul, the values for the X velocity component at the stagnation points. It 
also echoes back the values entered for XS and XF. If the returned values for U0 and 
Ul are sufficiently close to zero, then enter 

Y [Return] 

This response will cause the program to proceed to the output stage. Values will be 
printed to the screen and to the data files. 
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Enter the number of pressure coefficient output points you desire. You are reminded 
that this number is independent of the number of intervals of the line doublet distrib- 
ution and it does not affect the accuracy of the solution. 

The program now asks if you want to make another run. The session is finished, so enter 

2 [Return] 

This completes the samole problems for the DUBLET program. The data files created 
by these sample runs and the listing for the DUBLET program are on the following 
pages. Since the bodies analyzed by this program are symmetrical with respect to the x 
axis, only the upper surface body shape coordinates and pressure coefficients are output. 
For this reason, the piecewise constant doublet strength M(I) is divided by two to indi- 
cate the portion affecting the upper surface. 
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SAMPLE PROBLEM OUTPUT DATA FILES 



Sample problem 1: Ellipse - Thickness ratio = 0.1 



T(I) = Chordwise location of doublets, T(l)= XS T(N) = XF 
M(I)/2 = Piecewise doublet strength / 2 

DATA FILE: DUB LET. DAT 



DOUBLET STRENGTH DISTRIBUTION 



T(I) 


M( 


:d/2 


0 . 


0045 


0 . 


0112 


0 . 


02S7 


0 . 


0259 


0 . 


0991 


0 . 


0395 


0 . 


20S7 


0 . 


0494 


0 . 


3469 


0 . 


0547 


0 . 


5000 


0 . 


0547 


0 . 


6531 


0 . 


049- 


0 . 


7913 


0 . 


0395 


0 . 


9009 


0 . 


0259 


0 . 


9713 


0 . 


0112 


0 . 


9955 


0 . 


0000 



Sample problem 2: Airfoil Shape - Thickness ratio = 0.12. XMAXY = 0.30 



DOUBLET STRENGTH DISTRIBUTION 



T(I) 


M(I)/2 


0. 0082 


0. 0184 


0. 0325 


0. 0438 


0. 1029 


0. 0624 


0. 2125 


0. 0703 


0. 3507 


0. 0671 


0. 5038 


0. 0551 


0. 6570 


0. 0383 


0. 7951 


0. 0214 


0. 9048 


0. 0083 


0. 9752 


0. 0016 


0. 9994 


0. 0000 
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Sample problem 1: Ellipse - Thickness ratio = 0.1 



DATA FILE: SHAPE. DAT 



BODY SHAPE - UPPER SURFACE 
X Y 



0 . 0166 


0 . 0128 


0 . 0639 


0. 0245 


0 . 1539 


0 . 0361 


0. 2778 


0. 0448 


0. 4234 


0. 0494 


0 . 5766 


0. 0494 


0 . 7222 


0 . 0448 


0 . 8461 


0. 0361 


0 . 9361 


0. 0245 


0 . 9834 


0. 0128 



Sample problem 2: Airfoil Shape - Thickness ratio = 0.12, XMAXY = 0.30 



BODY SHAPE - UPPER SURFACE 
X Y 



0. 0203 


0. 0219 


0. 0677 


0 . 038 r 


0. 1577 


0. 0523 


0 . 2816 


0. 0597 


0. 4272 


0. 0586 


0. 5804 


0. 0500 


0. 7260 


0. 0365 


0. 8499 


0. 0216 


0. 9400 


0. 0091 


0. 9873 


0. 0020 
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Sample problem 1: Ellipse - Thickness ratio = 0.1 



DATA FILE: PRESSURE. DAT 



BODY SURFACE PRESSURE DISTRIBUTION 



X 


CP 


0. 0000 


1. 0000 


0. 1111 


-0. 2621 


0. 2222 


-0. 2341 


0. 3333 


-0. 1866 


0. 4444 


-0. 2078 


0. 5556 


-0. 2078 


0. 6667 


-0. 1866 


0. 7778 


-0. 2341 


0. 8889 


-0. 2621 


1. 0000 


1. 0000 



Sample problem 2: Airfoil Shape - Thickness ratio = 0.12, XMAXY 



BODY SURFACE PRESSURE DISTRIBUTION 



X 


CP 


0. 0000 


1. 0000 


o. mi 


-0. 3946 


0. 2222 


-0. 3572 


0. 3333 


-0. 3162 


0. 4444 


-0. 2938 


0. 5556 


-0. 1820 


0. 6667 


-0. 1180 


0. 7778 


-0. 2180 


0. 8889 


-0. 2142 


1. 0000 


1. 0000 



0.30 
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PROGRAM DUBLET LISTING 



PROGRAM DUBLET 

*** MODIFIED FOR USE ON THE MICROVAX/2000 BY J.A. CAMPBELL ( JUL 88) 
FINAL UPDATES MADE 14 SEP 88 - ( JAC ) 

******************************************************************** 

INCOMPRESSIBLE AERODYNAMICS OF SYMMETRIC AIRFOIL 
AT ZERO ANGLE OF ATTACK BY LINE DOUBLET DISTRIBUTION 

ORIGINAL IBM MAINFRAME PROGRAM WAS ADAPTED FROM JACK MORAN'S BOOK 
'AN INTRODUCTION TO THEORETICAL AND COMPUTATIONAL AERODYNAMICS', 
WILEY AND SONS, NEW YORK 1984. THE LISTING IS FOUND ON PAGE 75. 

PROGRAM FLEXIBILITY AND USER INTERFACE HAS REVISED FOR 
PROFESSOR J.V. HEALEY BY JOHN CAMPBELL. JULY 1988. 

******************************************************************** 

CHARACTER*! IANS 
INTEGER NANS 

COMMON T ( 100 ),M( 100 ),N,XS,XF 
COMMON /FCN/ AX, TAU, NTYPE 
REAL M,MPLOT 

FOLLOWING LINES FOR OUTPUT FILES ADDED BY J.A. CAMPBELL ( AUG88 ) 

OPEN FILE FOR DOUBLET STRENGTH DISTRIBUTION OUTPUT 
OPEN ( UNIT=11, 

2 FILE= ' DUBLET . DAT ' , 

2 ORGANIZATION= 'SEQUENTIAL', 

2 ACCESS= ’SEQUENTIAL ' * 

2 RECORDTYPE= 'VARIABLE', 

2 FORM= ' FORMATTED ’ * 

2 STATUS= 'UNKNOWN') 

OPEN FILE FOR BODY SHAPE OUTPUT 
OPEN ( UNIT = 12 , 

2 FILE= ' SHAPE . DAT ' * 

2 ORGANIZATICN= ' SEQUENTIAL ' , 

2 ACCESS= 'SEQUENTIAL', 

2 RECORDTYPE = 'VARIABLE', 

2 FORM= 'FORMATTED', 

2 STATUS= 'UNKNOWN') 

OPEN FILE FOR BODY SURFACE PRESSURE DISTRIBUTION OUTPUT 
OPEN ( UNIT = 13 * 

2 FILE = ' PRESSURE . DAT * > 

2 ORGANIZATION^ 'SEQUENTIAL', 

2 ACCESS= 'SEQUENTIAL', 

2 RECORDTYPE = ' VARIABLE ' , 

2 FORM= 'FORMATTED', 

2 ST ATUS= 'UNKNOWN') 



CALL LIBRARY ROUTINE TO CLEAR THE SCREEN, THE PRINT HEADER 
5 CONTINUE 
CALL CLRSCRN 
PRINT * 

PROGRAM DUBLET : VERSION 2 : 9 SEPTEMBER 88 ’ 



PRINT *, 
PRINT * 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
10 PRINT 
PRINT 
PRINT 
PRINT 



DOUBLET DISTRIBUITON METHOD IS USED TO DETERMINE' 
INCOMPRESSIBLE AERODYNAMICS OF AN ELLIPSE OR ’ 
SYMMETRICAL AIRFOIL AT ZERO ANGLE OF ATTACK' 

PROGRAM ASSUMES A NONDIMENSIONAL CHORD, THAT IS,' 
THE VALID RANGE OF X IS FROM 0 TO 1 . ' 



15 READ (5,*) 
IF (NTYPE 



20 



ENTER TYPE OF BODY SHAPE DESIRED: 

1) ELLIPTIC OR' 

2) SYMMETRICAL AIRFOIL-LIKE' 

ENTER 1 OR 2. ' 

NTYPE 

-LT. 1 .OR. NTYPE .GT. 2 ) THEN 
PRINT *, ' INVALID ENTRY. ENTER 1 OR 2 . ' 

GO TO 15 
END IF 

PRINT *,' ENTER THICKNESS RATIO (TAU).' 

READ (5,*) TAU 
IF (NTYPE .GT. 1) THEN 
PRINT * 

^THICK^ESS ENTER THE NONDIMENSIONAL X LOCATION OF MAXIMUM' 

READ (5,*) XMAXY 
~~ 0.5) THEN 

THE PROGRAM CONSIDERS THE ONSET FLOW TO BE' 
APPROACHING FROM THE LEFT. THEREFORE, THE' 

X LOCATION OF MAXIMUM THICKNESS MUST BE < 0.5.' 
= = > PLEASE REENTER. ' 



IF (XMAXY .GT 
PRINT *,' 
PRINT *,' 
PRINT *,' 
PRINT *,' 
GO TO 20 
END IF 

AX = ( .5 * 
END IF 



TAU )/( SQRT( XMAXY )*( 1. - XMAXY)) 



INPUT NUMBER OF INTERVALS N 



PRINT * 

70 PRINT *, ' 

71 READ (5,*) 



ENTER 

N 



OJMBER OF INTERVALS DESIRED. N 
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PRINT * 

I F ( N .LT. 2 .OR. N . GT . 1001 THEN 
WRITE ( b , 21 ) N 

PRINT *, ' A MINIMUM OF TWO INTERVALS AND A MAXIMUM OF' 

PRINT *, ' 100 IS ALLOWED. ===> PLEASE REENTER.' 

GO TO 71 
END IF 

21 FORMAT! IX, 5X, 'NUMBER OF INTERVALS REQUESTED =',I3) 

ASK USER FOR AUTOMATIC OR MANUAL DETERMINATION OF ENDPOINTS. 

80 CONTINUE 

CALL CLRSCRN 
PRINT * 

PRINT *, ' WHICH METHOD DO YOU WISH TO USE TO DETERMINE THE' 

PRINT *, 1 DOUBLET DISTRIBUTION ENDPOINTS? (1 OR 2)' 

PRINT *, ' 1) PROGRAM INTERVAL HALVING SUBROUTINE TO ITERATE. 1 

PRINT *, 1 2) MANUAL ITERATION BY THE USER.' 

PRINT * 

PRINT *, ' ENTER 3 TO RETURN TO START.' 

READ (5,*) NMETH 

GO TO (120,100,5) NMETH 

MANUALLY DETERMINE ENDPOINTS OF SOURCE DISTRIBUTION XS, XF 



ROUTINE FOR MANUAL DETERMINATION OF ENDPOINTS' 



ENTER THE DOUBLET DISTRIBUTION STARTING POINT, XS. 
(XS SHOULD BE APPROXIMATELY ONE HALF OF' 

THE NONDIMENSIONAL LEADING EDGE RADIUS.)' 



100 CONTINUE 

CALL CLRSCRN 
PRINT * 

PRINT *, ' 

PRINT * 

PRINT *, ' 

PRINT * 

PRINT * 

PRINT * 

PRINT * 

READ ( 5 >* ) XS 
PRINT * 

PRINT *, 1 ENTER THE DOUBLET DISTRIBUTION ENDING POINT, XF . ' 
PRINT *, ' (XF SHOULD BE APPROXIMATELY ONE MINUS HALF' 

PRINT *, ' OF THE NONDIMENSIONAL TRAILING EDGE RADIUS.)' 

READ ( 5 ,* ) XF 
PRINT * 

PRINT * 

CALL FINDM ( T ,M ,N,XS ,XF ) 

CALL PRESS! 0.6, UO,CP0 ) 

CALL PRESS! 1.0,U1,CP1 ) 

GO TO 150 

120 CONTINUE 

CALL CLRSCRN 
PRINT * 

PRINT *, 

PRINT *, 

PRINT * 

PRINT *, ' 

PRINT * 

ENTER THE PARAMETERS REQUIRED BY THE INTERVAL HALVING METHOD 
WHICH IS USED TO OBTAIN THE PROPER LOCATIONS FOR XS AND XF . 



INTERVAL HALVING ROUTINE FOR DETERMINATION OF' 
DOUBLET DISTRIBUTION ENDPOINTS' 



PRINT 
PRINT *, 1 
READ ( 5 ,* 
PRINT * 
PRINT *, 1 



& 



ENTER THE INTEGER EXPONENT FOR THE X TOLERANCE, NXTOL. ' 

EXAMPLE: A VALUE OF 4, GIVES A TOLERANCE OF 0.0001.' 

NXTOL 

ENTER THE INTEGER EXPONENT FOR THE FUNCTION ' , 

TOLERANCE , NFTOL . ' 

(SAME IDEA AS NXTOL* 5 YIELDS FTOL = 0.00001).' 



PRINT *, 

READ ( 5 ,* ) NFTOL 
PRINT * 

PRINT *, ' ENTER THE MAXIMUM NUMBER OF ITERATIONS, MAXIT, TO ' 
PRINT *, ' LOCATE XS AND XF . (FOR NFTOL = 6, SUGGEST 35-40) ' 

READ ( 5 ,* ) MAXIT 
PRINT * 

PRINT *, ' ENTER THE OUTPUT PARAMETER, IOUT.' 

PRINT *, ' IOUT = 0 TO SUPPRESS ALL ITERATION RELATED OUTPUT' 

PRINT *, ' 1 TO OUTPUT FINAL RESULTS ONLY' 

PRINT *, ' 2 TO OUTPUT DETAILS FOR EACH ITERATION- 

READ (5,*) IOUT 

CALL INTHV ( NXTOL , NFTOL ,NTYPE , MAXIT , IOUT ,U0 ,U1 ) 

RUN THROUGH PROCESS AGAIN WITH FINAL VALUES OBTAINED BY ITERATION 
CALL FINDM ( T >M »N ,XS ,XF ) 

CALL PRESS! 0.6 ,UO,CP6 ) 

CALL PRESS! 1.0, Ul, CPI ) 



U AT X = 0 =' ,U0, ' 
U AT X = 1 =' ,U1, 1 



XS =' ,XS 
XF =' ,XF 



150 PRINT *, 

PRINT *, 

PRINT * 

PRINT *, ' THESE VALUES FOR U SHOULD BE NEAR ZERO. 1 

PRINT *, ' DO YOU ACCEPT THESE RESULTS ( Y/N ) ' 

READ 1060, IANS 
IF (IANS .NE. *Y' ) THEN 
GO TO (120,100) NMETH 
END IF 

OUTPUT RESULTS 

PRINT 1010 
WRITE (11,1012) 

M( N+l ) = 0.0 

DO 200 I = 1,N+1 
MPLOT = M( I 1*3.1415926585 
PRINT 1040, T( I), MPLOT 
200 WRITE (11,1040) T( I), MPLOT 
PRINT 1020 



3S 



A MINIMUM OF 2. PLEASE REENTER.' 



WRITE ( 12,1020 1 
DO 210 I = 1 ,N 

XX = .5*(T(I ) + T ( 1 + 1 ) ) 

YY = Y ( XX I 

PRINT 1040, XX, YY 
210 WRITE ( 12,1040 i XX, YY 
PRINT 1050 

212 READ (5,*) NPRINT 

IF (NPRINT .LT. 2) THEN 

PRINT *, ' YOU MUST ENTER 
GO TO 212 
END IF 

WRITE (15,1052) 

DO 220 I = 1, NPRINT 

XX = (1-1 )/FLOAT(NPRINT-l) 

CALL PRESS( XX ,U, CP J 
PRINT 1040, XX, CP 
220 WRITE (15,10401 XX, CP 

C CALL LIBRARY ROUTINE TO CLEAR THE SCREEN, THEN PRINT HEADER 
CALL CLRSCRN 
PRINT * 

PRINT *, 1 PROGRAM DUBLET RESULTS HAVE BEEN WRITTEN TO FILES: 1 
PRINT * 

PRINT *, ' DUBLET . DAT : DOUBLET STRENGTH DISTRIBUTION' 

PRINT *, 1 SHAPE . DAT : BODY SURFACE COORDINATES ' 

PRINT *, ' PRESSURE . DAT : SURFACE PRESSURE DISTRIBUTION' 

PRINT * 

PRINT * 

C OPTION TO MAKE ANOTHER RUN 

PRINT * 

PRINT * , 'DO YOU WISH TO: 

PRINT *> ' 1) MAKE ANOTHER RUN OR' 

PRINT *, ' 2) END THIS SESSION' 

PRINT *, ' ENTER 1 OR 2.' 

PRINT * 

CALL QUERY (NANS) 

CALL CLRSCRN 

IF (NANS .EQ. 1) GO TO 10 
STOP 

1000 FORMAT ( A1 ) 

1010 FORMAT (/,' DOUBLET STRENGTH DISTRIBUTION',/, 

+ * M = M( I ) FOR T ( I ) .LT. T . LT . T(I+1)',//, 

+ 5X , ' T ( I )' ,5X> 'M(I )/2 ' ,/ ) 

1012 FORMAT ( / , ' DOUBLET STRENGTH DISTRIBUTION',//, 

+ 5X,'T(I >S5X, 'M(I)/2* ,/) 

1020 FORMAT ( // , BODY SHAPE - UPPER SURFACE ' ,//,6X ,’ X ', 9X ,' Y ',/ ) 

1050 FORMAT ( //, ' BODY SURFACE PRESSURE DISTRIBUTION',//, 

+ 6X,'X' ,8X, 'CP' ,//,' INPUT NUMBER OF PRESSURE COEFFICIENT', 

+ ' OUTPUT POINTS' ) 

1052 FORMAT ( // , ' BODY SURFACE PRESSURE DISTRIBUTION',//, 

+ 6X» 'X' ,8X , 'CP' ,//) 

1040 FORMAT ( 2F1Q . 4 ) 

END 

C*********************************************************************** 
SUBROUTINE CLRSCRN 
C 

C LIBRARY ROUTINE TO CLEAR THE SCREEN. 

C 

ISTAT = LIBSERASE PAGE (1,1) 

RETURN 

C*********************************************************************** 

END 

SUBROUTINE QUERY ( NANS ) 



ROUTINE TO TRAP ERRORS CAUSED BY IMPROPER RESPONSES TO QUESTIONS. 
THE COMPUTER GENERATES AND ERROR WHEN A CHARACTER IS SUPPLIED TO 
A QUESTION EXPECTING AN INTEGER OR REAL VALUE. 



.GT. 0) THEN 

' CHARACTER VALUES ARE NOT VALID. 1 
' PLEASE ENTER A VALUE OF 1 OR 2.' 



NQTEST =0 
1 CONTINUE 
IF (NQTEST 
PRINT *, 

PRINT *, 

END IF 
NQTEST = NQTEST + 1 
READ (5,*,ERR=1)NANS 
RETURN 

C*********************************************************************** 

END 



100 



SUBROUTINE FINDM ( T ,M ,N,XS,XF ) 

FIND DOUBLET STRENGTH TO MEET 
FLOW TANGENCY CONDITION 

DIMENSION T ( 100 ),M( 100) 

COMMON /COF/ A( 101,111 ),NEQNS 
REAL M 

PI = 3.1415926585 

NP = N + 1 

DO 100 I = 1 ,NP 

COSINE SPACING SCMEME FROM XS TO XF 
FRACT = .5*11. - COS(PI*(I-l)/FLOAT(N))) 
T(I ) = XS + (XF - XS)*FRACT 

SET UP LINEAR SYSTEM OF EQUATIONS 

DO 210 I = l.N 

XI = . 5* ( T ( I ) + T( 1 + 1 ) ) 

YI = Y( XI ) 

FAC1 = AT AN2 ( T ( 1 ) - XI, YI) 
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DO 200 J = 1,N 

FAC2 = ATAN2( T( U + l ) - XI ,YI ) 

At I > J I = ( FAC2 - FAC1 )/YI 
200 FAC I = FAC 2 
210 AII,NP) = 1.0 

SOLVE FOR DOUBLET STRENGTH 



300 



NEQNS = N 
CALL GAUSS ( 1) 

DO 300 I = 1 >N 
Mt I ) = AtI,NP) 

RETURN 

*********************************************************************** 

END 

SUBROUTINE GAUSS! NRHS ) 

SOLUTION OF LINEAR ALGEBRAIC SYSTEM BY 
GAUSS ELIMINATION WITH PARTIAL PIVOTING 



0 A = COEFFICIENT MATRIX 

NEONS = NUM3ER OF EQUATIONS 

NRHS = NUMBER OF RIGHT HAND 



SIDES 



RIGHT-HAND SIDES AND SOLUTIONS STORED IN 
COLUMNS NEQNS+1 THRU NEQNS+NRHS OF ®A 



COMMON /COF/ At 101*111 ), NEQNS 



110 



130 



140 



150 



NP 
NTOT 



DO 150 



IM = 

I MAX - 

AMAX = 

DO 110 J 

IF (AMAX 
I MAX = 

AMAX 
CONTINUE 



= NEQNS 
= NEQNS 



V 

+ NRHS 



GAUSS REDUCTION 
I = 2, NEQNS 

-- SEARCH FOR LARGEST ENTRY IN (I-l)TH COLUMN 
ON OR BELOW MAIN DIAGONAL 

= 1-1 
= IM 

= ABS( A( I M » IM ) ) 

J = I, NEQNS 

.GE. ABS( A ( U ,IM ) ) ) GO TO 110 
ABS( AtU,IM) ) 

SWITCH (I-l)TH AND IMAXTH EQUATIONS 
GO TO 140 



IF (IMAX .NE. IM) 

DO 130 J = IM,NTOT 
TEMP = A( IM, J ) 

A( IM » J ) = At IMAX, J) 
At IMAX, J) = TEMP 
CONTINUE 



DO 150 
R 

DO 150 
At J,K ) 



ELIMINATE (I-l)TH UNKNOWN FROM 
ITH THRU ( NEQNS )TH EQUATIONS 

J = I, NEQNS 
= At J,IM i/A( IM , IM ) 

K = I, NTOT 

= At J,K I - R*A( IM,K) 

BACK SUBSTITUTION 



DO 220 K = NP*NTOT 

At NEQNS, K) = At NEQNS ,K )/A( NEQNS , NEQNS ) 

DO 210 L = 2, NEQNS 
I = NEQNS + 1 - L 

IP =1+1 

DO 200 J = IP, NEQNS 
200 A t I , K ) = At I ,K ) - A(I*J)*At J,K) 

210 At I ,K ) = At I ,K )/A( 1,1) 

220 CONTINUE 
RETURN 

*********************************************************************** 



END 

SUBROUTINE PRESSt X ,U ,CP ) 

FIND PRESSURE COEFFICIENT CP AT ( X »Y( X ) ) 



COMMON 


T ( 


100 ),M( 100 ),N,XS,XF 


REAL 


M 




YB 


x 


YtX) 


U 


x 


1.0 


V 


x 


0.0 


VF1 


= 


l./( (T( 1) - X )**2 + YB*YB ) 


UF1 


= 


(T( 1) - X )*VF1 


DO 100 


U 


= 1,N 


VF2 


= 


1 . / ( ( T ( U + 1 ) - X )**2 + YB*YB) 


UF2 


x 


( T( U + l ) - X )*VF2 


U 


x 


U + Mt U )*( UF2 - UF1 ) 


V 


X 


V - Mt J )*YB*( VF2 - VF1 ) 


VF1 


X 


VF 2 


UF1 


X 


UF2 


CP 

RETURN 

END 




1.0 - U*U - V*V 
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FUNCTION Y ( X ) 

COMMON /FCN/ AX,TAU,NTYPE 

ORDINATE OF BODY CONTOUR 

IF ( NTYPE .EQ. 1) THEN 

PROVIDE BODY ORDINATES FOR AN ELLIPSE OF THICKNESS RATIO TAU 
(CHORD HAS BEEN NONDIMENSIONALIZED > C=1.0) 

TO REDUCE THE NUMBER OF VARIABLES PASSED IN THE FUNCITON 
STATEMENT, THE DUMMY VARIABLE AX PASSES TAU FOR THE ELLIPSOID 
CASE AND THE COEFFICIENT AX( TAU ,XMAXY ) FOR THE SYMMETRICAL 
AIRFOIL-LIKE CASE. 



Y = TAU * SQRT(X*( 1 . -X ) ) 

ELSE 

PROVIDE BODY ORDINATES FOR A SYMMETRIC AIRFOIL-LIKE SHAPE 
(CHORD HAS BEEN NONDIMENSIONALIZED, C=1.0) 

Y = AX * SQRT ( X )*( 1-X ) 

END IF 

RETURN 

*********************************************************************** 

END 

SUBROUTINE INTHV C ’XTOL ,NFTOL , NTYPE >MAXIT ,IOUT ,U0 ,U1 ) 

COMMON T ( 100 ) >M( 1 0),N,XS,XF 
SUBROUTINE TO FIND THE ROOTS OF fix) = 0 USING THE 
INTERVAL HALVING METHOD 

IN THE PARAMETER LIST THE USER MUST PROVIDE: 

NXTOL = EXPONENT FOR X TOLERANCE VALUE 
NFTOL = EXPONENT FOR FUNCTION TOLERANCE VALUE 
NTYPE = SHAPE TYPE; ELLIPTICAL OR AIRFOIL 
MAXIT = MAXIMUM NUMBER OF ITERATIONS 
I CUT = 0 TO SUPPRESS ALL OUTPUT (TO DEVICE IH ) 

1 TO OUTPUT FINAL RESULTS ONLY 

2 TO OUTPUT DETAILS FOR EACH ITERATION 
THE SUBROUTINE CALCULATES: 

XPRE V * X = TWO INITIAL GUESSES, GIVEN N 
THE SUBROUTINE RETURNS: 

XS, XF = CURRENT X VALUES WHEN TERMINATION OCCURRED 
UO, U1 = CURRENT VELOCITY VALUES WHEN TERMINATION OCCURRED 
IEXIT = 1, 2, 3, 4 OR 7 (SEE FORMAT STATEMENTS 1 - 4 S 7) 
Subprogram name F must be declared EXTERNAL in calling program. 



IW = 5 

XTOL = 10 . **( -NXTOL ) 

FTOL = 10.**( -NFTOL ) 

CALCULATE INITIAL GUESS FOR XS AND XF, GIVEN N 
XS = 1. / FLOAT ( N + 1) 

XSPREV = 10.**( -6 ) 

XF = 1 - XS 

XFPRE V * = 1. - XSPREV 

SET X VALUES FOR LEADING AND TRAILING EDGES FOR SUBROUTINE PRESS 
XLE = 0.0 
XTE = 1.0 

ITERATE TO DETERMINE THE PROPER LOCATION FOR XF 

FIRST CHECK TO SEE THAT F(XF) & F(XFPREV) DIFFER IN SIGN 
SO THAT 1 HE METHOD WILL CONVERGE. 

EVALUATE PREVIOUS X VALUE 

CALL FINDM ( T,M >N»XS> XFPREV ) 

CALL PRESS (XTE,U1,CP) 

YFPREV - U1 

EVALUATE INITAL GUESS FOR X VALUE 
CALL FINDM ( T,M,N,XS,XF ) 

CALL PRESS ( XTE ,Ul ,CP ) 

YF = U1 

IF ( I CUT .GT. 1) WRITE (IH.5I XFPREV, YPREV , XF , YF 
IF ( Y FPREV*YF .GT. 0.0) THEN 
I = -2 
PRINT 201 
RETURN 
END IF 

COMPUTE SEQUENCE OF POINTS CONVERGING TO THE ROOT 
IEXIT = 1 
DO 10 K=l, MAXIT 

XR = (XFPREV ♦ XF )/2 . 0 

FOR THE ELLIPTIC CASE XS AND XF WILL BE EQUIDISTANT FROM THE EDGES. 
IF (NTYPE .LT. 2) THEN 
XS = ABS ( 1 . - XR ) 

END IF 

CALL FINDM ( T ,M,N >XS ,XR ) 

CALL PRESS ( XTE >UI >CP ) 

Y = U1 

CHECK ON STOPPING CRITERIA 

DELTAXF = XFPREV-XR 
XERR = ABS( XFPREV-XR )/2 . 0 

IF ( I OUT .GT. 1) WRITE (IW,6) K,XR ,Y , DELTAXF 
IF (Y .EQ. 0.0) IEXIT = 2 
IF (ABS(Y) .LE. FTOL) IEXIT = 3 
IF ( XERR .LE. XTOL) IEXIT = 7 
IF (IEXIT .GT. 1) GO TO 20 



41 



noon o on on o on no 



IF (Y*YFPREV .GT. 0.0) THEN 
XFPREV = XR 
YFPREV = Y 
ELSE 

XF = XR 
YF = Y 
END IF 
10 CONTINUE 

THE MAXIMUM ITERATIONS HAS BEEN EXCEEDED , WITHOUT FINDING A ROOT. 
IEXIT = 9 

20 IF ( I OUT .EQ. 0) GO TO 30 

IF (IEXIT .EQ. 1 ) WRITE (IW, 1) XR 

IF (IEXIT .EQ. 2 ) WRITE (IW, 2) XR 

IF (IEXIT .EQ. Z ) WRITE (IW, Z) XR , NUMSIG 

IF (IEXIT .EQ. 9 ) WRITE (IW, 9) MAXIT 

30 CONTINUE 

FOR THE ELLIPTIC CASE XS ANND XF ARE DETERMINED, SO GO BACK. 

IF ( NTYPE .LT. 2) THEN 

CALL FINDM ( T »M ,N,XS»XF ) 

CALL PRESS ( XLE ,U0 ,CP ) 

GO TO 90 
END IF 

NOW DO THE SAME FOR XS 

PRINT *, ' VALUE OBTAINED FOR XF ’ ,XF 
PRINT *, ’ -- WORKING ON XS . ' 

EVALUATE PREVIOUS X VALUE 

CALL FINDM (T ,M ,N ,XSPRE V ,XF ) 

CALL PRESS (XLE ,U0,CP ) 

YSPREV = UO 

EVALUATE INITAL GUESS FOR X VALUE 
CALL FINDM ( T »M >N >XS ,XF ) 

CALL PRESS ( XLE ,U0 >CP ) 

YS = UO 

IF ( I OUT .GT. 1) WRITE (IW,5) XSPREV, YSPREV, XS, YS 
IF ( YSPRE V*YS .GT. 0.0) THEN 
I = -2 
PRINT 201 
RETURN 
END IF 

COMPUTE SEQUENCE OF POINTS CONVERGING TO THE ROOT 
IEXIT = 1 
DO 90 K=l> MAXIT 

XR = (XSPREV + XS )/2 . 0 
CALL FINDM ( T >M ,N »XR >XF ) 

CALL PRESS ( XLF ,U0 ,CP ) 

Y = UO 

CHECK ON STOPPING CRj TERIA 

DELTAXS = XSPREV-XR 
XERR = ABS( XSPREV-XR )/2.0 

IF ( I OUT .GT. 1) WRITE (IW,6) K ,XR,Y , DELTAXS 
IF ( Y .EQ. 0.0 l IEXIT = 2 
IF (ABS1Y‘ .LE. FTOL ) IEXIT = Z 
IF ( XERR .LE. XTOL ) IEXIT = 7 
IF ( IEXIT .GT. 1 ) GO TO 50 
IF ( Y*YSPRE V .GT. 0.0) THEN 
XSPREV = XR 
YSPREV = Y 
ELSE 

XS = XR 
YS = Y 
END IF 
90 CONTINUE 

THE MAXIMUM ITERATIONS HAS BEEN EXCEEDED , WITHOUT FINDING A ROOT. 
IEXIT = 9 

.EQ. 0) RETURN 

‘ 1 ) WRITE (IW, 1) XR 

‘ ) WRITE ( IW, 2 ) XR 

) WRITE (IW, 3) XR, NUMSIG 
) WRITE (IW, 9) MAXIT 
) WRITE (IW, 7) XR, XTOL 



50 IF (ICUT 

IF (IEXIT .EQ. 

IF (IEXIT .EQ. 

IF (IEXIT “ 

IF (IEXIT 
IF (IEXIT 
90 RETURN 

*********************************************************************** 



.EQ. 

.EQ. 

.EQ 



THIS SHOULD RETURN WITH UO NEAR ZERO AND A GOOD VALUE OF XS. 

1 FORMAT! 'OSLOPE = 0 WHEN X =',G12.7,'. ITERATION DISCONTINUED.') 

2 FORMAT( 'OCOMPUTED FI ',G12.7,'> IS 0. ITERATION DISCONTINUED.') 

3 FORMAT( 'OROOT: , ,G12.7, 1 . APPEARS TO BE ACCURATE TO ',11,'S.') 

9 FORMAT l 'ODESIRED ACCURACY IS NOT EVIDENT IN ',13,' ITERATIONS.') 

5 FORMAT ( 'OHALVINS METHOD: X$-l», X<0* ARE INITIAL GUESSES.',/, 

& '0 K',9X,’X = Xk',7X,'Y = F(XV ,7X, 'X-XPREV' ,/, 

& ' -1 ', G12.7, E12.5, /,' 0 '» G12.7, El2.5) 

6 FORMAT ( 13 , 3X, G12.7, E12.5, E15.5) 

7 FORMAT ( 'OX LOCATION: ',G12.7,' IS WITHIN X TOLERANCE OF ',E12.5) 

201 FORMAT( 'OFUNCTION HAS THE SAME SIGN AT BOTH INITIAL POSITIONS. r 



END 



,/,'OTHE BUILT-IN ITERATION SCHEME WILL NOT WORK, THEREFORE' 
,/,'OYOU MUST SELECT THE ENDPOINTS MANUALLY.’) 
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Introduction 

The purpose of the PANEL program is to provide an analysis of the aerodynamics of 
NACA four-digit airfoils and airfoils of the NACA 230XX family using the panel 
method. This program has been modified to accept arbitrary airfoil surface coordinate 
input. 

Assumptions and Limitations 

This program is limited to single-element airfoils. The solution is determined for condi- 
tions of incompressible and inviscid irrotational How. Since we are considering an 
inviscid fluid, the coefficient of drag provided in the results is for the induced drag com- 
ponent only. 

Input Description 

As with the DUBLET program, there are very few input values required for this simple 
program. Their description and program variable names are listed below. 

NCPPER - Number of nodes on the upper surface. 

NLOYVER - Number of nodes on the lower surface. 

X(I),Y(I) - Surface coordinates. These may be entered from the keyboard, from a data 
file, or from data statements. The program is capable of generating an approximation 
for airfoils of the NACA XXXX and 230XX series. 

ALPHA - Angle of attack. (Angle between the chord and the freestream velocity.) 

Input Restrictions 

The program, as written, is limited to 100 total surface nodes. This may be modified by 
changing the si/e of the arrays, however only a very complex surface should require that 
many values to accurately define the surface. If that is the case, a more sophisticated 
program should be considered for the investigation. As mentioned above, the computer 
generated approximations to airfoil shapes are limited to the NACA XXXX and 230XX 
series. The program will accept values for ALPHA up to 90 degrees, but the user is 
cautioned that since separation usually begins at about 10 to 15 degrees, results for val- 
ues above 15 may be suspect. 

Sample Problem 

A few sample problems will illustrate the use of the PANEL program. The first run will 
be done using an approximation to a NACA 0012 airfoil which is generated by the 
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program using the information associated with each digit in the NACA number. The 
second run will analyze a NASA LS( 1 )-00 1 3 airfoil using a set of data statements con- 
taining the airfoil surface coordinates. These statements must be inserted into the 
proper location in the program prior to running it. 

Starting the Program 

Begin with the screen showing the DCL prompt, which looks like this. 

$ 

Next, ensure that the program is in your directory by typing 

DIR [Return] 

and viewing the files for PANEL.EXE and PANEL. OBJ. If only the PANEL. FOR file 
exists, you must compile the program by typing, 

FOR PANEL [Return] 

The next step is to link the program by entering. 

LINK PANEL [Return] 

The files PANEL.EXE and PANEL. OBJ will now exist and you will be able to run the 
program. 

Running the Program 
To run the program, type 

PANEL [Return] 

The program will start and the screen should look similar to what is shown in 
Figure 20. 



PROGRAM PANEL 

SMITH-HESS (DOUGLAS) PANEL METHOD 
FOR A SINGLE -ELEMENT LIFTING AIRFOIL 
IN TWO-DIMENSIONAL INCOMPRESSIBLE FLOW 

DO YOU WISH TO: 

1) USE AIRFOIL SURFACE COORDINATE DATA VALUES. 

2) HAVE COMPUTER GENERATE AN APPROXIMATION 
FOR A NACA XXXX OR 230XX AIRFOIL SECTION. 

3) QUIT THE PROGRAM. 

ENTER 1, 2, OR 3 



Figure 20. Initial Screen for Program PANEL 
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For the first case we will have the computer generate an approximation for the shape 
of a NACA 0012 airfoil, consisting of 20 surface panels, using an algorithm contained 
in subroutine XACA45. The angle of attack of the onset flow will be six degrees. To 
use the approximation method, enter 

2 [Return] 

Respond to the request for the number of surface data points by entering 

20 [Return] 

Confirm the number of surface data points you desire by entering 

1 [Return] 

Although the program will allow a different number of upper and lower surface data 
points, it is recommended that you try and keep them equal. An unequal number of 
nodes yields trailing-cdge panels of unequal length, which lowers the accuracy of the 
approximation to the Kutta condition. Respond to this question by entering 

1 [Return] 

The next question asks for the NACA number of the airfoil you are considering. For 
this case we will look at the NACA 0012, so enter 

0012 [Return] 

The screen should now look like what is shown in Figure 21. 



ENTER NUMBER OF SURFACE DATA POINTS DESIRED 

20 

NUMBER OF SURFACE DATA POINTS TO BE GENERATED = 20 

IS THIS VALUE CORRECT? (YES=1, NO=2) 

1 

ARE THE NUMBER OF UPPER AND LOWER SURFACE 
DATA P0INTS( NODES) EQUAL? (YES=I, NO=2) 

1 

INPUT NACA NUMBER, ANY FOUR-DIGIT OR 230XX SERIES 
0012 

INPUT ALPHA IN DEGREES (ALPHA > 90 TO EXIT LOOP) 



Figure 21. Screen Showing Data for Computer Generated Airfoil 
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The program is now ready to perform its calculations. The final piece of information 
required is the angle of attack, ALPHA. By entering values of ALPHA that are less than 
90 degrees, you may look at as many different angle of attack cases as you desire. En- 
tering a value for ALPHA that is greater than 90 degrees will cause the program to stop 
the present airfoil analysis and provide you with a choice of exiting the program or ex- 
amining another airfoil. For this case, respond to the question by entering 
6 [Return] 

Following entry of the angle of attack, the program begins the solution process. Values 
scroll up the screen and are simultaneously being written to the data files. When the 
solution is complete you should see the screen shown in Figure 22. 

PROGRAM PANEL RESULTS HAVE BEEN WRITTEN TO FILES: 

PB0DY.DAT : BODY SURFACE COORDINATES 

PPRES.DAT : SURFACE PRESSURE DISTRIBUTION 

DO YOU WISH TO: 

1) MAKE ANOTHER RUN OR 

2) END THIS SESSION 
ENTER 1 OR 2. 



Figure 22. Run Completion Screen 



Say you have finished your analysis of the NACA 0012 at this point and you want to 
examine another airfoil. Enter a value of ALPHA that is greater than 90 degrees, such 
as 

99 [Return] 

A new screen will be presented and the program now asks if you want to make another 
run. Enter 

1 [Return] 

This time the sample problem will examine a NASA LS(1)-0013 whose coordinates have 
been entered as data statements in the program. You should now be back at the initial 
screen and it should look like Figure 20. Since you will be using actual airfoil coordinate 
data values, enter 
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1 [Return] 

The screen shown in Figure 23 now presents you with the three choices available for 
entering the airfoil surface coordinate data values. You will be using the data state- 
ments. so enter 

3 [Return] 



DO YOU WISH TO ENTER THE SURFACE COORDINATE VALUES: 

1) FROM A DATA FILE. 

2) FROM THE KEYBOARD. 

3) USING DATA STATEMENTS ALREADY ENTERED 

IN THE MAIN PROGRAM. ** NOTE ** THIS REQUIRES 
THAT PROGRAM BE MODIFIED IN ADVANCE BY MOVING 
DATA STATEMENTS TO THE CORRECT LOCATION. 

ENTER 1, 2, OR 3. (FOR PREVIOUS MENU ENTER 4) 



Figure 23. Menu for Surface Coordinate Data Entry Method 



The number of data points has been entered via the data statements, therefore you are 
not asked that question for this case. For the angle of attack, again enter 

6 [Return] 

As you saw in the previous example, values scroll up the screen. These solutions will 
be appended to the solutions for the NACA 0012 airfoil. The data files are overwritten 
only when a new session (from the DCL prompt) is started. 

The program now asks if you want to make another run. The session is finished, so enter 

2 [Return] 

This completes the sample problems for the PANEL program. The data files created 
by these sample runs and the listing for the PANEL program are on the following pages. 
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SAMPLE PROBLEM OUTPUT DATA FILES 



Sample problem I: NACA 0012 Airfoil 



DATA FILE: 
BODY SHAPE 
X 

1 . 0000 
0. 9755 
0. 9045 
0. 7939 
0. 6545 
0. 5000 
0. 3455 
0. 2061 
0. 0955 
0. 0245 
0. 0000 
0. 0245 
0. 0955 
0. 2061 
0. 3455 
0. 5000 
0. 6545 
0. 7939 
0. 9045 
0. 9755 



PBODY. DAT 



Y 

0 . 0000 
-0. 0034 
-0. 0129 
-0. 0261 
-0. 0404 
-0. 0526 
-0. 0594 
-0. 0577 
-0. 0460 
-0. 0259 
0. 0000 
0. 0259 
0. 0460 
0. 0577 
0. 0594 
0. 0526 
0. 0404 
0. 0261 
0. 0129 
0. 0034 
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Sample problem 2: NASA LS(1)-0013 Airfoil 



BODY SHAPE 




X 


Y 


1 . 0000 
0.9000 
0.8000 
0. 7000 
0. 6000 
0. 5000 
0. 4000 
0. 3000 
0.2000 
0. 1000 
0. 0753 
0. 0500 
0. 0247 
0. 0126 
0. 0000 
0. 0130 
0 . 0250 
0. 0499 
0. 0750 
0. 1000 
0. 2000 
0. 3000 
0. 4000 
0. 5000 
0. 6000 
0. 7000 
0. 8000 
0. 9000 


0. 0000 
- 0. 0116 
- 0. 0265 
- 0. 0420 
- 0. 0546 
- 0 . 0621 
- 0 . 0645 
- 0. 0632 
- 0. 0575 
- 0. 0454 
- 0. 0407 
- 0. 0346 
- 0 . 0261 
- 0. 0194 
0 . 0000 
0. 0189 
0 . 0258 
0. 0347 
0. 0408 
0. 0454 
0 . 0575 
0. 0631 
0. 0643 
0. 0620 
0. 0545 
0 . 0418 
0. 0264 
0. 0117 
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Sample problem 1: NACA 0012 Airfoil 



DATA FILE: PPRESS.DAT 

ANGLE OF ATTACK IN DEGREES = 6. 000 

PRESSURE DISTRIBUTION 



X 


CP 


0. 9878 
0. 9400 
0. 8492 
0. 7242 
0. 5773 
0. 4227 
0. 2758 
0. 1508 
0. 0600 
0. 0122 
0. 0122 
0. 0600 
0. 1508 
0. 2758 
0. 4227 
0. 5773 
0. 7242 
0. 8492 
0. 9400 
0. 9878 


0. 2339 
0. 1316 
0. 0728 
0. 0362 
0. 0155 
0. 0180 
0. 0680 
0. 2129 
0. 5547 
0. 9318 
-2. 4438 
-1. 7390 
-1. 1500 
-0. 8021 
-0. 5537 
-0. 3638 
-0. 2101 
-0. 0717 
0. 0706 
0. 2339 



CD =0.00721 CL = 0. 72235 CM =-0. 18377 CMC4 =-0. 00398 
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Sample problem 2: NASA LS(1)-U013 Airfoil 



DATAFILE: PPRESS.DAT 

ANGLE OF ATTACK IN DEGREES = 6.000 



PRESSURE DISTRIBUTION 
X CP 



0. 9500 
0. 8500 
0. 7500 
0. 6500 
0. 5500 
0. 4500 
0. 3500 
0. 2500 
0. 1500 
0. 0877 
0. 0627 
0. 0373 
0. 0186 
0. 0063 
0. 0065 
0. 0190 
0. 0375 
0. 0625 
0. 0875 
0. 1500 
0. 2500 
0. 3500 
0. 4500 
0. 5500 
0. 6500 
0. 7500 
0. 8500 
0. 9500 



0. 1566 
0. 0713 
0. 0003 
-0. 0572 
-0. 0700 
-0. 0332 
0. 0239 
0. 1047 
0. 2627 
0. 3930 
0. 4956 
0. 6714 
0. 8801 
0. 7672 
-2. 2382 
-2. 6638 
-1. 9526 
-1. 5750 
-1. 3623 
-1. 0520 
-0. 8380 
-0. 7090 
-0. 6245 
-0. 5094 
-0. 3375 
-0. 1369 
0. 0365 
0. 1566 



CD = 0.00324 CL = 0.69366 CM =-0. 16505 CMC4 



0. 00750 
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PROGRAM PANEL LISTING 



PROGRAM PANEL 

*** MODIFIED FOR USE ON THE MICROVAX/2000 BY J.A. CAMPBELL ( JUL 88) 
FINAL UPDATES MADE 14 SEP 88 - ( JAC ) 

******************************************************************** 

PROGRAM PANEL 

SMITH-HESS (DOUGLAS) PANEL METHOD 
FOR SINGLE -ELEMENT LIFTING AIRFOIL 
IN TWO-DIMENSIONAL INCOMPRESSIBLE FLOW 

******************************************************************** 

SUBROUTINES QUERY AND CLRSCRN ADDED TO ORIGINAL PROGRAM. 

THE FILE OPEN STATEMENTS WERE ADDED IN LIEU OF THE EXEC FILE 
METHOD USED ON THE IBM MAINFRAME. 

******************************************************************** 

ORIGINAL IBM MAINFRAME PROGRAM WAS ADAPTED FROM JACK MORAN'S BOOK 
'AN INTRODUCTION TO THEORETICAL AND COMPUTATIONAL AERODYNAMICS' , 
WILEY AND SONS , NEW YORK 1984. THE LISTING IS FOUND ON PAGE 118. 

PROGRAM FLEXIBILITY AND USER INTERFACE WAS REVISED FOR 
PROFESSOR J.V. HEALEY BY JOHN CAMPBELL. APRIL 1988. 

********************************************************** ********** 

THIS PROGRAM PROVIDES THE BODY COORDINATES AND THE SURFACE 
PRESSURE DISTRIBUTION ABOUT A SINGLE ELEMENT LIFTING AIRFOIL 
IN TWO-DIMENSIONAL FLOW. 

ESTIMATED VALUES FOR LIFT COEFFICIENT AND THE MOMENT COEFFICIENT 
ABOUT THE LEADING EDGE AND QUARTER CHORD ARE DETERMINED FROM THE 
PRESSURE COEFFICIENTS OF EACH PANEL. 

YOU MAY PROVIDE ACTUAL AIRFOIL SURFACE COORDINATE DATA VALUES OR 
HAVE THE COMPUTER GENERATE AN APPROXIMATION FOR THE COORDINATES 
OF A NACA XXXX OR 230XX AIRFOIL SECTION. 

IF YOU DESIRE TO ENTER THE SURFACE COORDINATE VALUES, SEVERAL 
OPTIONS ARE AVAILABLE. YOU MAY ENTER THEM 1) FROM A DATA FILE, 

2) FROM THE KEYBOARD OR 3) USING DATA STATEMENTS ALREADY ENTERED 
AT THE END OF THE MAIN PROGRAM LISTING. 

IF INPUTTING YOUR OWN DATA, REMEMBER TO START AT THE TRAILING EDGE 
(X/C = 1.0), AND WORK TOWARDS THE LEADING EDGE, ENTERING THE LOWER 
SIDE FIRST, FOLLOWED BY THE UPPER SURFACE. DO NOT ENTER THE 
TRAILING EDGE TWICE. TRY TO ENTER A SUFFICIENT NUMBER OF POINTS 
NEAR THE NOSE FOR GOOD RESOLUTION. 

*** NOTE: TO SATISFY THE COROLLARY TO THE KUTTA CONDITION, X VALUES 
FOR POINTS 2 AND N MUST BE THE SAME. THIS ENSURES THAT THE 
LAST PANELS, UPPER AND LOWER, ARE OF EQUAL SIZE. ** 

CD IS JUST AN INDICATOR OF NUMERICAL ACCURACY OF THIS 
PROGRAM. VALUE OF CD SHOULD BE NEAR ZERO. 

IF USING DATA STMTS OR AN INPUT FILE, REMEMBER THE NUMBER 
OF DATA VALUES AS YOU WILL BE ASKED FOR THIS BY THE PROGRAM. 

USE OF THE DATA STATEMENTS REQUIRES THAT PROGRAM BE 
MODIFIED IN ADVANCE BY MOVING THEM TO THE CORRECT LOCATION. 

******************************************************************** 
INTEGER NANS 

DIMENSION Z( 100 ) ,X( 100 ) ,Y( 100 ) 

*** NOTE: IF YOU CHANGE SIZE OF X AND Y, CHANGE N BELOW ALSO 1 *** 

DATA X, Y /100*0. ,100*0./ 

COMMON /BOD/ N0DT6t ,CCSTHE( 100 ) ,SINTHE( 100 ) ,NFLAG 

COMMON /PAR/ NACA ,TAU»EPSMAX ,PTMAX 

COMMON /COF/ A( 101,111), KUTTA 

COMMON /NUM/ PI,PI2INV 

COMMON /CPD/ CP (100) 

******************************************************************** 

IF USING DATA STMTS FOR X AND Y VALUES, PLACE LINES HERE. 

*** FOLLOWING DATA IS FOR THE NASA LS( 1 )-0013 AIRFOIL *** 

DATA NUPPER, NLOWER /14,14/ 

DATA (X(I ), 1 = 1, 28 )/1.0, .90, .80,. 70, .60,. 50,. 40,. 30,. 20,. 10, 

1 0.07535,0.05,0.0247,0.01255,0.0,0.01301,0.02505,0.04993,0.07498, 

2 0 . 10 , . 20 , . 30 , . 40 , . 50 , . 60 , . 70 , . 80 , . 90/ 

*** NOTE: VALUE FOR TRAILING EDGE IS SET TO 0.000 VS ACT THICKNESS * 
DATA ( Y ( I ), 1 = 1, 28 )/0 . 00000, -.01165, -.02654, -.04196, -.05459, 

1 -.06209, -.06453, -.0631o, -.05755, -.04543, -.040 70, -.03462, 

1 -.02612, -.01938, 0.0, .01892, .02583,. 03465,. 040 75,. 04541, 

2 .05750, .06307, .06432, .06203, .05446, .04183, .02638,. 01172/ 
******************************************************************** 

PI = 3.1415926585 

*** MAKE SURE THAT N CORRESPONDS TO THE SIZE OF X AND Y DIMENSION ** 

N = 100 

******************************************************************** 
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C FOLLOWING LINES FOR INPUT/OUTPUT FILES ADDED BY J.A. CAMPBELL ( JUL88 ) 
C OPE N FILE FOR BODY SURFACE COORDINATE OUTPUT 
OPEN ( UNIT = 11, 

2 FI LE= ' PBODY . DAT ' , 

2 ORGANIZATION= 'SEQUENTIAL', 

2 ACCESS= •SEQUENTIAL 1 , 

2 RECORDTYPE= 'VARIABLE', 

2 FORM= 'FORMATTED', 

2 ST ATUS= 'UNKNOWN') 

C OPEN FILE FOR PRESSURE COEFFICIENT OUTPUT 
OPEN ( UNIT=12, 

2 FILE= ' PPRESS . DAT 1 , 

2 ORGANIZATION 'SEQUENTIAL 1 , 

2 ACCESS= ’SEQUENTIAL', 

2 RECORDTYPE= 'VARIABLE 1 , 

2 FORM= 'FORMATTED 1 , 

2 ST ATUS= 'UNKNOWN 1 ) 

C 

60 CALL INDATA( X ,Y ,N,NLOWER ,NUPPER ) 

CALL SETUP ( X,Y ,N ,NLCWER ,NUPPER ) 

100 PRINT 1000 

READ (5,*) ALPHA 

IF (ALPHA .GT. 90.) GO TO 200 
COSALF = COS( ALPHA*PI/180. ) 

SINALF = SIM( ALPHA*PI/160 . ) 

CALL COFISH( SINALF , COSALF ,X,Y ,N,NLOWER ,NUPPER ) 

CALL GAUSS( 1 ) 

* NALF , COSALF ,X,Y ,N ,NLOWER ,NUPPE . . , 

1) 



CALL VELDIS( SINALF , COSALF ,X ,Y ,N,NLOWER ,NUPPER, ALPHA ) 
CALL FANDMI SINALF, COSALF, X,Y ,N,NLOWER ,NUPPER ) 



GO TO 100 
200 CONTINUE 

C CALL LIBRARY ROUTINE TO CLEAR THE SCREEN, THEN PRINT HEADER 
CALL CLRSCRN 
PRINT * 

PROGRAM PANEL RESULTS HAVE BEEN WRITTEN TO FILES: 



BODY SURFACE COORDINATES' 
SURFACE PRESSURE DISTRIBUTION' 



PRINT *, 

PRINT * 

PRINT *, ' PBODY . DAT 
PRINT *, ' PPRES.DAT 
PRINT * 

PRINT * 

C OPTION TO MAKE ANOTHER RUN 

PRINT * 

PRINT *, * DO YOU WISH TO: 

PRINT *, ' 1) MAKE ANOTHER RUN OR 1 

PRINT *, ' 2) END THIS SESSION 1 

PRINT ' ENTER 1 OR 2. 1 
CALL QUERY (NANS) 

IF (NANS .EQ. 1 ) GO TO 60 
STOP 

1000 FORMAT ( /////, 1 INPUT ALPHA IN DEGREES (ALPHA > 90 TO EXIT LOOP) ' 
END 

C ********************************************************************* 
SUBROUTINE INDATAt X ,Y ,N,NLOKER ,NUPPER ) 
********************************************************************* 



SET PARAMETERS OF BODY SHAPE 

FLOW SITUATION, AND NODE DISTRIBUTION 

USER MUST INPUT 

NLCNER = NUMBER OF NODES ON LOWER SURFACE 
NUPPER = NUMBER OF NODES ON UPPER SURFACE 
PLUS DATA ON BODY AND SUBROUTINE BODY 

REAL X(N),Y(N) 

INTEGER NUMPTS, I, STATUS 
CHARACTER*20 INFILE 
INTEGERS INFILE SIZE 
LOGICAL EXIST “ 

COMMON /BOD/ NODTOT ,COSTHE( 100 ) >SINTHE( 100 ) ,NFLAG 
COMMON /PAR/ NACA ,TAU,EPSMAX,PTMAX 
CALL LIBRARY ROUTINE TO CLEAR THE SCREEN, THEN PRINT HEADER 
5 CALL CLRSCRN 
PRINT * 



PRINT 
PRINT 
PRINT 
PRINT *> 
PRINT *, 
PRINT *, 
PRINT * 
PRINT *, 
PRINT *> 
PRINT *, 
PRINT *, 
PRINT *, 
PRINT *, 
READ ( 5 »* ) 



PROGRAM PANEL ' 

SMITH-HESS (DOUGLAS) PANEL METHOD' 

FOR A SINGLE-ELEMENT LIFTING AIRFOIL' 

IN TWO-DIMENSIONAL INCOMPRESSIBLE FLOW' 



DO YOU WISH TO: 

1) USE AIRFOIL SURFACE COORDINATE DATA VALUES.' 

2) HAVE COMPUTER GENERATE AN APPROXIMATION' 

FOR A NACA XXXX OR 230XX AIRFOIL SECTION. ' 

3) QUIT THE PROGRAM. 1 
ENTER 1, 2, OR 3' 

. NFLAG 

GO TO ( lO ,50 , 9°9 ) NFLAG 
C **** ROUTINE TO INPUT SHAPE FROM DATA FILE, KEYBOARD OR DATA STMTS ** 
10 CALL CLRSCRN 
PRINT * 

DO YOU WISH TO ENTER THE SURFACE COORDINATE VALUES: ' 
1) FROM A DATA FILE. ' 

2 ) FROM THE KEYBOARD. ' 

3) USING DATA STATEMENTS ALREADY ENTERED' 

IN THE MAIN PROGRAM. ** NOTE ** THIS REQUIRES' 
THAT PROGRAM BE MODIFIED IN ADVANCE BY MOVING' 
DATA STATEMENTS TO THE CORRECT LOCATION. ' 

ENTER 1, 2, OR 3. (FOR PREVIOUS MENU ENTER 4)' 

I FLAG 



PRINT *, 
PRINT *, 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
12 READ ( 5 >* ) 



*> 

*> 

*> 

*> 

*» 



IF ( IFLAG .EQ. 4 ) GO TO 5 
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IF ( I FLAG .LT. 1 .OR. IFLAG .GT. 3) THEN 

PRINT *• 'INVALID ENTRY. ENTER 1, 2, OR 3.' 

GO TO 12 
END IF 

IF (IFLAG .EQ. 3) GO TO 100 

**** CUE THE USER TO ENTER THE NUMBER OF DATA POINTS (NUMPTS) 

15 CALL CLRSCRN 
PRINT * 

PRINT *, 'ENTER NUMBER OF DATA POINTS' 

READ *, NUMPTS 
**** ECHO CHECK THE INPUT 

PRINT *, 'NUMBER OF DATA POINTS TO BE ENTERED = ' , NUMPTS 
PRINT * 

PRINT *,'IS THIS VALUE CORRECT? (YES=1> NO=2 ) ' 

READ *> Ml 

IF (Ml .GT. 1) GO TO 15 

CALL NODES( NUMPTS, NLOWER .NUPPER ) 

C **** SEND CONTROL TO DATA FILE OR KEYBOARD ENTRY ROUTINE **** 

GO TO ( 20,30,100 ) IFLAG 

*********************************************************************** 

C *** DATA FILE READ ROUTINE 



LIBSGET INPUT IS A VAX LIBRARY ROUTINE. IT MAY BE REPLACED BY AN 
EQUIVALENT NRITE/READ TO GET THE FILENAME INTO THE PROGRAM. 



The input file 
Prompt 

Filename size 



20 STATUS = LIBSGET INPUT (INFILE, 

2 'ENTER THE DATA FILE NAME: ', 

2 INFILE SIZE ) 

CHECK TO SEE IF THE FILE EXISTS BEFORE TRYING TO ACCESS IT 
IF (INFILE .EQ. *9^9') GO TO 5 

INQUIRE (FILE = INFILE ( 1 : INFILE SIZE), EXIST = EXIST) 
IF l MOT. EXIST) THEN 

THAT FILE NAME DOES NOT EXIST.' 

(ENTER 999 TO RETURN TO MENU).' 



*, 

*, 

* 



PRINT 
PRINT 
PRINT 
PRINT 
GO TO 20 
END IF 

C OPEN FILE FOR SURFACE COORDINATE INPUT 
OPEN ( UNIT = 13 , 

2 FILE= INFILE, 

2 ORGANIZATICN= 'SEQUENTIAL', 

2 ACC ESS= 'SEQUENTIAL', 

2 RECORDTYPE= 'VARIABLE', 

2 FORM= 'FORMATTED', 

2 ST ATUS= ‘OLD') 

DO 25 I = 1, NUMPTS 

READ (3,* ) X( I ) , Y ( I ) 

PRINT 1010, X(I ) » Y ( I ) 

25 CONTINUE 

1010 FORMAT ( F10.4,F10.<+) 

GO TO 100 

*********************************************************************** 

C **** ROUTINE TO ENTER DATA FROM THE KEYBOARD ***** 

30 CALL INPUT l X,Y, NUMPTS) 

GO TO 100 

*********************************************************************** 

C **** ROUTINE TO CALCULATE SHAPE, GIVEN NACA NUMBER ***** 

50 CALL CLRSCRN 
PRINT * 

PRINT *, ' ENTER NUMBER OF SURFACE DATA POINTS DESIRED' 

READ *, NUMPTS 
**** ECHO CHECK THE INPUT 
CALL CLRSCRN 
PRINT * 

NUMBER OF SURFACE DATA POINTS TO BE GENERATED = ' , NUMPTS 



PRINT *,' 
PRINT * 
PRINT *,' 
READ *, Ml 
IF (Ml .GT. 



IS THIS VALUE CORRECT? (YES=1, NO=2)' 



_ . _ 1) GO TO 50 

CALL NODES( NUMPTS ,NLOWER ,NUPPER ) 

PRINT * 

PRINT *, ' INPUT NACA NUMBER, ANY FOUR-DIGIT OR 230XX SERIES' 
READ (5,*) NACA 



NACA/1000 

NACA/100 - 10*IEPS 
NACA - 1000*IEPS - 100*IPTMAX 
IEPS*0 . 01 
IPTMAX*0.1 
ITAU*0 . 01 
.LT. 10) RETURN 
0.2025 

2 . 6595*PTMAX**3 



I EPS 

IPTMAX = 

ITAU = 

EPSMAX = 

PTMAX 
TAU 

IF ( IEPS 
PTMAX = 

EPSMAX = 

100 RETURN 
999 STOP 
END 

*********************************************************************** 
SUBROUTINE NODES( NUMPTS , NLOWER , NUPPER ) 
*********************************************************************** 
C 

c **** CALCULATE NLOWER AND NUPPER FOR LATER USE *** 

PRINT * 

PRINT ARE THE NUMBER OF UPPER AND LOWER SURFACE * 

PRINT DATA POINTS( NODES ) EQUAL? (YES=1, NO=2 ) ' 

READ *, Ml 
IF (Ml .EQ. 1) THEN 
NLOWER = NUMPTS/ 2 
NUPPER = NLOWER 

ELSE 

CALL CLRSCRN 
PRINT * 
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20 



PRINT *, * 
PRINT *> * 
PRINT * 
PRINT *, ' 
READ (5,*) 
PRINT *, 1 
READ (5,*) 



TOTAL NUMBER_OF SURFACE POINTS = ', NUMPTS 

INPUT NUMBER OF LOWER SURFACE POINTS, NLOWER 1 
N LOWER 

INPUT NUMBER OF UPPER SURFACE POINTS, NUPPER' 



NUPPER 

NTEST = NLOWER + NUPPER 
IF ( NTEST .NE. NUMPTS) THEN 

PRINT *, ' OKAY , TRY IT AGAIN EINSTEIN. REMEMBER ADDITION?' 
PRINT *, ' NLOWER + NUPPER MUST EQUAL ' , NUMPTS 
GO TO 20 
END IF 
END IF 
RETURN 
END 

*********************************************************************** 
SUBROUTINE INPUT(A,B,N) 

*********************************************************************** 
INTEGER N , I 
DIMENSION A(N), B(N) 

CUE THE USER TO INPUT X VALUES 

PRINT *, 'ENTER X VALUES AS MANY PER LINE AS DESIRED' 

READ *» < A( I ), I = 1 ,N ) 

ECHO CHECK THE INPUT 
PRINT 20, N 

FORMAT (/IX, 'TABLE OF', IS,' X VALUES : ’/IX , 21( 1 = ’) ) 

PRINT 30, (A(I ), 1=1, N) 

FORMAT (1X.3F10.6) 

PRINT * , ' ARE THE VALUES CORRECT? (YES=1, N0=2)* 

READ *, J1 

IF (J1 .GT. 1) GO TO 10 
CUE THE USER TO INPUT Y VALUES 

PRINT * , ‘ENTER Y VALUES AS MANY PER LINE AS DESIRED’ 

READ *, (B(J), J=1,N) 



**** 

10 

**** 

20 

30 



**** 

35 



40 



r\E “ , 1 Dl J I * — i. , H 

ECHO CHECK THE INPUT 
PRINT 40, N 
FORMAT ( /IX, 'TABLE OF ' , 
PRINT 30, (B(J) 2 J=1,N) 



13, ' Y VALUES: '/1X,21( ' = ' )) 



r Mill I U * I Dl J f y + y IN I 

PRINT * , ' ARE THE VALUES CORRECT? (YES=1, N0 = 2)' 



K1 

.GT. 1) GO TO 35 



READ *, 

IF ( K1 
RETURN 
END 

******************************************************************** 
SUBROUTINE SETUPt X ,Y ,N , NLOWER , NUPPER J 
******************************************************************** 
REAL X(N),Y(N) 

COMMON /BOD/ NODTOT , COST HE ( 100 ) , SI NT HE (100), NFL AG 

COMMON /N'JM/ PI,PI2INV 

COMMON /SKAL/ N2ER0,YMULT 

PI = 3.1415926585 

PI2INV = .5/PI 

NZERO =31 

YMULT = 200 

SET COORDINATES OF NODES ON BODY SURFACE 



= - 1.0 
= 0 

NSURF =1,2 
N = 1 , NPOINT 

= FL0AT(N-1 )/FLOAT( NPOINT) 
= .5*( 1. - COS ( PI*FRACT ) ) 

= NSTART + N 

.EQ. 1) GO TO 90 



90 

'lOO 



110 



PRINT 1000 
WRITE (11,1000) 

NPOINT = NLOWER 
SIGN ‘ 

NSTART 
DO 110 
DO 100 
FRACT 
Z = 

I = 

IF ( NFLAG _ _ __ . . _ 

CALL BODY (Z,SIGN,X(I ),Y(I )) 
CALL P LOTXY ( X( I ),Y( I ) ) 

WRITE ( 11,1010 ) X( I ) ,Y ( I ) 

PRINT 1010, X( I ) ,Y( I ) 

CONTINUE 

NPOINT = NUPPER 

SIGN =1.0 

NSTART = NLOWER 

CONTINUE 

NODTOT = NLOWER + NUPPER 
X( NODTOT + 1 ) = X( 1 ) 

Y ( NODTOT + 1 ) = Y(l) 

SET SLOPES OF PANELS 



200 



DO 200 I 
DX = 
DY = 
DIST = 
SINTHE(I ) 
COSTHE ( I I 
CONTINUE 



= 1, NODTOT 
X(I + 1 ) - X(I ) 

Y ( I +1 ) - Y(I ) 
SQRT(DX*~< +DY*DY ) 
= DY/DIST 
= DX/DIST 



1000 FORMAT (/////, ' BODY SHAPE ',// ,4X ,' X ’, 9X ,' Y ’,/ ) 

1010 FORMAT (F10.4,F10.4) 

RETURN 

END 

******************************************************************** 
SUBROUTINE BODY( Z ,SIGN ,XI ,YI ) 

******************************************************************** 
RETURN COORDINATES OF POINT ON THE BODY SURFACE 
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2 = NODE-SPACING PARAMETER 
X > Y = CARTESIAN COORDINATES 
SIGN = +1. FOR UPPER SURFACE 
-1. FOR LOHER SURFACE 

COMMON /PAR/ NACA >TAU, EPSMAX, PTMAX 
IF (SIGN . LT. 0.0) 2 = 1. - 2 

CALL NACA951 2, THICK, CAMBER, BETA ) 

XI = 2 - SIGN*THICK*SI N( BETA ) 

YI = CAMBER + SIGN*THICK*COS( BETA ) 

RETURN 

END 

******************************************************************** 
SUBROUTINE NACA951 2 , THICK , CAMBER , BETA ) 
************************************** ****************************** 
COMMON /PAR/ NACA,TAU,EPSMAX,PTMAX 

EVALUATE THICKNESS AND CAMBER 
FOR NACA 9- OR 5-DIGIT AIRFOIL 





THICK = 1 

IF (2 .LT. 
THICK = J 


100 


+ IF 1 EPSMAX 
IF (NACA .1 
IF (2 .GT. 
CAMBER = 1 
DCAMDX = ; 
GO TO 120 


110 


CAMBER = 1 
DCAMDX = ; 


120 


BETA = i 

RETURN 


130 


CAMBER = 1 
BETA = 1 
RETURN 


190 


IF (2 .GT. 
H = * 

CAMBER = 1 
DCAMDX = 1 
GO TO 120 


150 


CAMBER = I 
DCAMDX = ■ 
GO TO 120 
END 



l.E-10) GO TO 100 

5 . *TAU*( . 2969#SQRT( 2 J - 2*1.126 + 2*1.3537 
- 2*1 . 2843 - 2*. 1015)))) 

.EQ. 0.0 ) GO TO 130 
GT. 9999) GO TO 190 
PTMAX ) GO TO 110 

EPSMAX/PTMAX/PTMAX*! 2.*PTMAX - 2 )*2 
2 . *EPSMAX/PTMAX/PTMAX*t PTMAX - 2) 

EPSMAX/l 1. -PTMAX )**2*11. + 2 - 2 . *PTMAX )*t 1 . 
2. *EPSMAX/( 1. -PTMAX )**2*1 PTMAX - 2) 

= ATANt DCAMDX ) 

0.0 
0.0 

PTMAX) 

2/PTMAX 
EPSMAX*W*t 1 H 



2 ) 



GO TO 150 

- 3. )*N + 3. - PTMAX) 



EPSMAX*3.*W*l 1. - WJ/PTMAX 



EPSMAX*! 1 . - 
- EPSMAX 



2 ) 



******************************************************************** 
SUBROUTINE COFISH1 SINALF ,COSALF ,X,Y ,N,NLOHER ,NUPPER ) 
******************************************************************** 

SET COEFFICIENTS OF LINEAR SYSTEM 

REAL XINKYIN) 

COMMON /BOD/ NODTOT »COSTHE ( 100 ), SINTHE ( 100 ) ,NFLAG 
COMMON /COF/ A( 101,111 ), KUTTA 
COMMON /NUM/ PI,PI2INV 



KUTTA 



DO 90 



Ji \f ri Jt 

NODTOT 



+ 1 



INITIALI2E COEFFICIENTS 



__ _ J = 

90 A1 KUTTA, J) 



1, KUTTA 

= 0.0 



SET VN = 0 AT MID-POINT OF I-TH PANEL 

DO 120 I = I, NODTOT 

XMID = .5*1X11 ) + Xtl + l )) 

YMID = .5*1 Y1I ) + Y1I + 1 ) ) 

All, KUTTA) =0.0 

FIND CONTRIBUTION OF J-TH PANEL 



.EQ 



100 



DO 110 
FLOG 
FTAN 
IF (J 
DXJ 
DXJP 
DYJ 
DYJP 
FLOG 
FTAN 
CTIMTJ 
STIMTJ 
A1 1 , J ) 

All ,KUTTA) 
IF 111 .GT 



= 1, NODTOT 

0.0 



PI 
1 1 

XMID 

XMID 

YMID 

YMID 



GO TO 
XI J) 

XI J + l ) 
Y( J ) 

Yl J + l ) 



100 



5*AL0G( 1 DXJP*DXJP+DYJP*DYJP )/( DXJ*DXJ+DY J*DYJ ) ) 
ATAN21 DYJP*DXJ-DXJP*DYJ ,DXJP*DXJ+DYJP*DYJ ) 

COSTHE 1 1 )*COSTHE 1 J ) + SINTHE 1 1 )*SINTHE 1 J ) 

COSTHE 1 1 )*SINTHE 1 J ) 
FLOG*STIMTJ ) 

FTAN*STIMTJ ) 



SINTHE II )*COSTHE 1 J ) 

PI2INV*! FTAN*CTIMTJ 
PI2INV*! FLOG*CTIMTJ 
A1 1 , KUTTA ) + B 

1) .AND. II .LT. NODTOT ) )GO TO 110 



IF I-TH PANEL TOUCHES TRAILING EDGE, 
ADD CONTRIBUTION TO KUTTA CONDITION 



110 



120 



A! KUTTA, J) = A! KUTTA, J) - B 

A1 KUTTA, KUTTA) = At KUTTA , KUTTA ) + A( I , J ) 

CONTINUE 

FILL IN KNONN SIDES 

At I , KUTTA + 1 ) = SINTHE1 1 )*C0SALF 
CONTINUE 



- COSTHE 1 1 )*SINALF 



At KUTTA, KUTTA + 1 ) = - 1COSTHE11) + COSTHE 1 NODTOT ) )*COSALF 
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(SINTHE(l) + SINTHE( NODTOT ) )*SINALF 



RETURN 
END 

C ******************************************************************** 
SUBROUTINE GAUSS(NRHS) 

******************************************************************** 

SOLUTION OF LINEAR ALGEBRAIC SYSTEM BY 
GAUSS ELIMINATION WITH PARTIAL PIVOTING 

c A = COEFFICIENT MATRIX 

NEONS = NUMBER OF EQUATIONS 

NRHS = NUMBER OF RIGHT HAND SIDES 

RIGHT-HAND SIDES AND SOLUTIONS STORED IN 
COLUMNS NEQNS+1 THRU NEQNS+NRHS OF U A 



COMMON /COF/ A( 101 > 111 ), NEQNS 

N p 

NTOT 



_ - 1 » i 

= NEQNS + 1 
= NEQNS + NRHS 



GAUSS REDUCTION 

DO 150 I = 2, NEQNS 

-- SEARCH FOR LARGEST ENTRY IN 
ON OR BELOW MAIN DIAGONAL 



(I-l)TH COLUMN 



110 



IM = 

IMAX 

AMAX = 

DO 110 J 

IF (AMAX 
IMAX = 

AMAX = 

CONTINUE 



I - 1 
IM 

ABS( A( IM ,IM ) ) 

= I, NEQNS 

.GE. ABS( A( J ,IM ) ) ) GO TO 110 
ABS( A( J ,IM ) ) 



SWITCH (I-l)TH AND IMAXTH EQUATIONS 



130 



140 


DO 150 




R 




DO 150 


150 


A( J ,K ) 




DO 220 



IF (IMAX .NE. IM 1 GO TO 140 
DO 130 J = IM ,NTOT 
TEMP = A(IM,J) 

A ( I M » J ) = A(IMAX,J) 

A( IMAX > J ) = TEMP 
CONTINUE 

ELIMINATE (I-l)TH UNKNOWN FROM 
ITH THRU ( NEQNS )TH EQUATIONS 

J = I, NEQNS 
= A( J,IM )/A( IM,IM) 

K = I, NTOT 

= A(J,K) - R*A(IM,K) 

BACK SUBSTITUTION 
K = NP,NTOT 

A( NEQNS, K) = A( NEONS, K)/A( NEQNS, NEQNS) 

DO 210 L = 2, NEQNS 

I = NEQNS + 1 - L 

IP =1+1 

DO 200 J = IP, NEQNS 

200 A( I ,K ) = A( I ,K ) - A(I,J)*A( J,K) 

210 A(I,K) = A( I ,K )/A( 1,1) 

220 CONTINUE 
RETURN 
END 

******************************************************************** 
SUBROUTINE VELDIS( SINALF >COSALF ,X ,Y ,N,NLOWER ,NUPPER , ALPHA ) 
******************************************************************** 

COMPUTE AND PRINT OUT PRESSURE DISTRIBUTION 

REAL X(NNYIN) 

COMMON /BOD/ NODTOT >COSTHE( 100 ),SINTHE( 100 ),NFLAG 
COMMON /COF/ A( 101,111 ),KUTTA 
COMMON /CPD/ CP (100) 

COMM.OrJ /NUM/ PI,PI2INV 
COMMON /SKAL/ N^IERO,YMULT 
DIMENSION Q( 150 ) 

YMULT =20.0 
PRINT 1000, ALPHA 
WRITE (12,1000) ALPHA 
PRINT 1005 
WRITE (12,1005) 

RETRIEVE SOLUTION FROM A-MATRIX 

DO 50 I = 1, NODTOT 
50 Q( I ) = A( I ,KUTTA + 1 ) 

GAMMA = A( KUTTA ,KUTTA+1 ) 

FIND VTAND CP AT MID-POINT OF I-TH PANEL 

DO 130 I = 1, NODTOT 

XMID = . 5*1 X( I ) + X(I + 1) ) 

YMID = . 5*( Y( I ) + Y( 1 + 1 ) ) 

VTANG = COSALF*COSTHE ( I ) + SINALF*SINTHE ( I ) 

ADD CONTRIBUTION OF J-TH PANEL 



5S 



100 



120 



00 120 J = 1,NOOTOT 

FLOG =0.0 

FT AN = PI 

IF ( J .EQ. I ) GO TO 100 
OXJ = XMIO -X(J) 

DXJP = XMIO - XIJ+l) 

OYJ = YMIO - Y(J) 

OYJP = YMID - Y( J + l ) 

FLOG = . 5*AL0G( ( OXJP*OXJP+OYJP*OY JP )/( OXJ*OXJ+OYJ*OYJ ) ) 

FT AN = AT AN 2 ( OYJP*OXJ-OXJP*OYJ , OXJP*OXJ+OYJP*OYJ ) 

CTIMTJ = COSTHEI I )*COSTHE( J ) + SlNTHE ( I )*SINTHE(J ) 

STINT J = SINTHEd »*COSTHE( J ) - COSTHEI I )*SINTHE(J) 

AA = PI2INV*(FTAN*CTIMTJ + FLOG*STIMTJ ) 

B = PI2INV*( FLOG*CTIMTJ - FTAN*STIMT J ) 

VTANG = VTANG - B^Q(J) +GANMA*AA 

CONTINUE 
CP( I ) 



. _ 1. - VT ANG*VT ANG 

CALL PLOTXY ( XMIO ,CP ( I ) ) 

PRINT 1010, XMIO, CPU) 

WRITE (12,1010) XMIO ,CP( I ) 

130 CONTINUE 

1000 FORMAT (/////, ‘ ANGLE OF ATTACK IN OEGREES = ’>F8.3,/) 

1005 FORMAT ( //, ' PRESSURE DISTRIBUTION ' ,//,4X , 'X ' ,oX , 'CP 1 ,/ ) 

1010 FORMAT! Fl0.4,F10.4 ) 

RETURN 

ENO 

C ******************************************************************** 
SUBROUTINE FANOM( SINALF ,COSALF ,X ,Y , N, NLOWER , NUPPER ) 

C ******************************************************************** 

c 

C COMPUTE ANO PRINT OUT CO, CL, CM 



REAL X(N),Y(N) 

COMMON /BOO/ NOOTOT ,COSTHE( 100 ) ,SINTHE( 100 ) ,NFLAG 
COMMON /CPO/ CP (100) 



CFX 

CFY = 

CM 

CMC 4 = 

00 100 I 
XMIO 

YMIO = 

OX 
OY 

CFX = 

CFY 

CM = 

CMC 4 = 

100 CONTINUE 

CO = CFX*COSALF + CFY*SINALF 

CL = CFY*COSALF - CFX*SINALF 

PRINT 1000, CO,CL,CM,CMC<+ 

WRITE (12,1000) CD,Cl,CM,CMC4 

1000 FORMAT ( ///// , 1 CO =',F8.5,’ CL =',F8.5,' CM =',F8.5, 

+ ' CMC4 =' ,F8.5) 

RETURN 

ENO 

C********************************************************************* 
SUBROUTINE CLRSCRN 

C*************************** ****************************************** 
C 

C LIBRARY ROUTINE TO CLEAR THE SCREEN. 

C 

1ST AT = LIBSERASE PAGE (1,1) 

RETURN 

ENO 

C********************************************* ************************ 
SUBROUTINE QUERY ( NANS ) 

C********************************************************************* 

c 

C ROUTINE TO TRAP ERRORS CAUSEO BY IMPROPER RESPONSES TO QUESTIONS. 

C THE COMPUTER GENERATES AND ERROR WHEN A CHARACTER IS SUPPLIEO TO 
C A QUESTION EXPECTING AN INTEGER OR REAL VALUE. 



0.0 
0.0 
0.0 
0.0 

= 1, NOOTOT 
. 5*( X( I ) + X( I +1 ) ) 

. 5*( Y ( I ) + Y( 1 + 1 ) ) 

X(I+1) - X(I) 

Y( I + 1 ) - Y(I ) 

CFX + CP(I )*0Y 
CFY - CP( I )*0X 

CM + CP( I )*(OX*XMIO + OY*YMIO ) 

CMC4 + CPU )*(0X*(XMI0-0.25) + OY*YMIO ) 



0) THEN 

CHARACTER VALUES ARE NOT VALIO. 
PLEASE ENTER A VALUE OF 1 OR 2. 



NQTEST =0 
1 CONTINUE 

IF (NQTEST .GT. 

PRINT *, * 

PRINT *, 1 
ENO IF 
NQTEST = NQTEST + 1 
REAO (5,*,ERR=1)NANS 
RETURN 
ENO 

C ******************************************************************** 
C OATA VALUES FOR VARIOUS AIRFOILS. TO USE, REMOVE COMMENTS 

C ANO PLACE AFTER COMMON CAROS IN MAIN PROGRAM. 

C ******************************************************************** 
C *** FOLLOWING OATA IS FOR THE NACA 0006 AIRFOIL *** 

C ‘ 

C 
C 
C 

c *** 
c 
c 
c 
c 



OATA NUPPER, NLOWER /14,14/ 

OATA (X(I ),I = 1,28)/1.0, .90,. 80,. 70, .60, .50 , .40 , .30 , . 20 , . 10 , 
1 0.075,0.05,0.025,0.0125,0.0,0.0125,0.025,6.05,0.075, 



2 0 . 10 , . 20 , . 30 , . 40 , . 50 , . 60 , . 70 , . 80 , . 90/ 

NOTE: VALUE FOR TRAILING EOGE IS SET TO 0.000 



VS ACT THICKNESS * 

DATA ( Y( I ), I =1,20)/-. 00063, -.00724, -.01312, -.01832, -.0 2282, 

1 -.02647, -.02902, -.03001, -.02869, -.02341, 0.0, .02341,. 02869, 

2 .03001, .02902, .02647,. 02282, .01832, .01312, .00724/ 

C ******************************************************************** 

C *** FOLLOWING OATA IS FOR THE NACA 0012 AIRFOIL *** 

C OATA NUPPER, NLOWER /14,14/ 



59 






c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 



DATA ( X( I ),I=1,28 i/1.0,.90,.80,.70, .60, . 50 , . 40 , . 30 , . 20 , . 10 , 

1 0.075, 0.05, 0.025, 0.0 125, 0.0, 0.0 125, 0.025,0. 05, 0.075, 

2 0 . 10 , . 20 , . 30 , . 40 , . 50 , . 60 , . 70 , . 80 , . 90 / 

*** NOTE: VALUE FOR TRAILING EDGE IS SET TO 0.000 VS ACT THICKNESS * 
DATA f Y< I 1,1 = 1,28 I/O . 00000 ,-. 01448,- . 02623 ,-. 03664 ,-. 04563, 

" -. 0S294 05803, -.0o002,-. 0573 7, -.04683 ,-.04200 ,-.03555, 

-.02615, -.0189h, 0.0,.018°4, .02615, .03555, .04200, .04683 , 
05803 ,. 05244 , . 045o3 , . 03664 > .0 2623 , . 01448/ 



.05737, .06002, 



********************************************************************* 
*** FOLLOWING DATA IS FOR THE NASA LS(1)-0013 AIRFOIL *** 

OATA NUPPER, N LOWER /14,14/ 

DATA (X(I ), 1 = 1, 28 1/1.0,. 90,. 80, .70,. 60,. 50,. 40, .30,. 20, .10, 

1 0.07535, 0.05 >0.02^7, 0.01255, 0.0, 0.01301, 0.02505, 0.04993, 0.07498, 

2 0.10, .20, .30, .40, 50, .60, .70,. 80, .90/ 

*** NOTE: VALUE FOR TRAILING EDGE IS SET TO 0.000 VS ACT THICKNESS * 
DATA C Y( I ) ,1 = 1 , 28 1/0 . 00000 ? -. 01165 ,-. 02654 »-. 04196 ,-. 05459 , 

1 -. 0o209,-. 06453, -.06316,-. 05755, -.o4543,-.o4070,-. 03462, 

1 -.02612, -.01938, 0.0, .01892 , .02583, .03465,. 04075, .04541, 

2 .05750, .06307, .06432, .06203, .05446, .04183, .02638, .01172/ 
***********************^********************************************* 

USER INSTRUCTIONS FOR MANUAL DATA ENTRY: 



(1) UPON CUE ENTER THE TOTAL NUMBER OF AIRFOIL DATA 
POINTS. DO NOT COUNT THE LEADING OR TRAILING EDGE TWICE. 

NOTE: ARRAYS ARE OIMENSIONEO TO 100, THIS IS, THEREBY THE 
LIMITING NUMBER OF OATA POINTS THAT CAN BE ENTERED 
WITHOUT HAVING TO REDIMENSION THE PROGRAMS ARRAYS. 

(2) ENTER X COORDINATES AS MANY TO A LINE AS DESIRED. 
THE PROGRAM WILL ALLOW FOR CORRECTION IF ANY ERRORS ARE 
MADE. A TABLE OF X COORDINATES IS DISPLAYED FOR THE USER 
TO CHECK HIS INPUT. 

<31 ENTER Y COORDINATES AS MANY TO A LINE AS DESIRED. 
THE PROGRAM WILL ALLOW FOR CORRECTION IF ANY ERRORS ARE 
MAOE. A TABLE OF Y COORDINATES IS DISPLAYED FOR THE USER 
TO CHECK HIS INPUT. 

(4) PROGRAM ALLOWS FOR AS MANY RUNS AS THE USER DESIRES 
SIMPLY FOLLOW CUING SEQUENCE. 
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Introduction 

The purpose of the YORLAT program is to provide an application of the vortex lattice 
method for the determination of the lift distribution of a flat rectangular plate. This 
method is based on a distribution of discrete horseshoe vortices over a wing surface that 
has been divided into a finite number of panels. A system of linear equations is devel- 
oped for the vortex strengths on the panels and solved by matrix methods. 

Assumptions and Limitations 

This program is limited to flat rectangular wings. The program divides the wing up into 
panels using either a uniform grid or cosine spacing method. The cosine spacing algo- 
rithm provides a finer grid near the wing tips where the pressure distribution over the 
wing is rapidly changing. Both methods incorporate an enhancement whereby the pan- 
els do not extend to the wing tips, but only to a distance of <5.4 from the tips. The value 
of S is the spanwise width of a wing panel. 

The solution is determined for conditions of incompressible and inviscid irrotational 
flow. Since we are considering an inviscid fluid, the coefficient of drag provided in the 
results is for the induce ' drag component only. This program is intended to be used for 
the analysis of flat rectangular wings with low aspect ratio. High aspect ratio wings are 
better analyzed using a method based on the lifting line theory. 

Input Description 

There are very few input values required for this simple program. Their description and 
program variable names are listed below. 

AR - Aspect ratio of the wing. (Span) 2 Area 

NX, NY - Number of vortices in the X and Y directions. 

ALPHA - Angle of attack. (Angle between the chord and the freestream velocity.) 
IOPT - Grid spacing option. Uniform grid or cosine spacing. 

Input Restrictions 

The program, as written, is limited to 350 total surface vortices. This may be modified 
by changing the size of the arrays, however for the wings that this program was intended 
to analyze, this should be sufficient. The program will accept values for ALPHA up to 
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45 degrees, but, as noted previously with program PANEL, the user is cautioned that 
values above 15 may be suspect. 

Sample Problem 

A sample problem will be used to illustrate the use of the VORLAT program. The run 
will be done using a flat rectangular wing with an aspect ratio of 2. The lattice will be 
created by placing three vortices on the wing in the X direction and 5 vortices on the 
wing in the V direction. The vortices will be distributed using the Uniform Grid spacing 
option and the wing will be set at an angle of attack (alpha) of 6 degrees. 

Starting the Program 

Begin with the screen showing the DCL prompt, which looks like this. 

S 

Next, ensure that the program is in your directory by typing 

DIR [Return] 

and viewing the files for VORLAT.EXE and VORLAT.OBJ. If only the VORLAT.FOR 
file exists, you must compile the program by typing, 

FOR VORLAT [Return] 

The next step is to link the program by entering. 

LINK VORLAT [Return] 

The files VORLAT.EXE and VORLAT.OBJ will now exist and you will be able to run 
the program. 

Running the Program 
To run the program, tyoe 
VORLAT [Return] 

The program will start and the screen should look similar to what is shown in 
Figure 24 
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PROGRAM VORLAT : VERSION 4 : 10 SEPTEMBER 88 

VORTEX-LATTICE METHOD USED TO DETERMINE SPANWISE 
LIFT DISTRIBUTION FOR A FLAT RECTANGULAR WING 

ENTER THE ASPECT RATIO? 

Figure 24. Initial Screen for Program VORLAT 



Respond to the request for the aspect ratio by entering 

2 [Return] 

Respond to the request for the number of vortices by entering 

3.5 [Return] 

Now enter the angle of attack in degrees as 

6 [Return] 

Finally enter the grid spacing option. 

1 [Return] 



The screen is then cleared and you will be presented with what is shown in Figure 25 



THE CURRENT VALUES ARE: 




1) ASPECT RATIO = 2. 000000 

2) NUMBER OF VORTICES ( NX , NY ) = 3 


5 


3) ANGLE OF ATTACK (DEGREES) = 6.000000 

4) GRID SPACING: (1) UNIFORM, (2) COSINE = 


1 


THE CALCULATED PARAMETERS ARE: 




DELTA X = 0. 3333333 

DELTA Y = 0. 1904762 




NUMBER OF EQUATIONS TO SOLVE = 15 

ARE THESE VALUES CORRECT? (YES=1, N0=2) 





Figure 25. Data Review/Correction Screen 



If your display agrees with this, respond to the question by entering 

1 [Return] 
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If you should desire to change any values, enter 2, and you will be asked which value 
you want to correct and the new desired value. Following entry of the correct values 
and a positive response, the program begins the solution process. It returns with the 
coefficients of lift and drag at the indicated spanwise positions, as well as the chordwise 
center of pressure for those positions. Overall values for the coefficients of lift, drag, 
induced drag and moment about the leading edge are calculated and then printed out 
near the bottom of the screen. Don't worry 7 if you miss some of the values as they scroll 
up on the screen. All the values are printed to both the screen and to the data file. 

The program now asks if you want to make another run. Enter 

1 [Return] 

You should now be back at the data review correction screen and it should look like 
Figure 25. Now run the same wing, but use the cosine grid spacing. Enter 

2 [Return] 

You want to change the grid spacing, so enter 

4 [Return] 

The screen is automatically updated and you will see that the grid spacing has been 
changed for you also. Since there are only two grid spacings available, the program 
"knows" to chose the other and this saves you the extra step of having to enter it. Not 
exactly artificial intelligence, but it helps. You are again asked if the data is correct. 
As in the previous example, responding with a (1) causes the program to proceed to the 
output stage. The solution will be printed to the screen and appended to the data file 
which contains the data from the prior run. 

The program now asks if you want to make another run. The session is finished, so enter 

2 [Return] 

This completes the sample problem for the VORLAT program. The data file created 
by this sample run and the listing for the VORLAT program are on the following pages. 
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SAMPLE PROBLEM OUTPUT DATA FILES 



** UNIFORM GRID SPACING ** 



NX= 3 NY= 5 ASPECT RATIO = 2. 00 ANGLE OF ATTACK = 6. 00 



Y 


CL( Y) 


CD( Y) 


XCP(Y) 


0. 095 


0. 32140 


0. 01232 


0. 22266 


0. 286 


0. 31085 


0. 01213 


0. 22061 


0. 476 


0. 28791 


0. 01166 


0. 21614 


0. 667 


0. 24778 


0. 01068 


0. 20843 


0. 857 


0. 17711 


0. 00839 


0. 19624 


CL = 


0. 25620 







CD = 0.0105093 

CD/CL2 = 0. 1601 
CMLE = -0. 055004 

XCP = 0. 21469 



** COSINE GRID SPACING ** 



NX= 3 NY= 5 ASPECT RATIO = 2. 00 ANGLE OF ATTACK = 6. 00 



Y 


CL( Y) 


CD( Y) 


XCP(Y) 


0. 045 


0. 32155 


0. 01223 


0. 22403 


0. 210 


0. 31734 


0. 01220 


0. 22325 


0. 476 


0. 29243 


0. 01176 


0. 21844 


0. 742 


0. 23258 


0. 01038 


0. 20690 


0. 907 


0. 14330 


0. 00733 


0. 19607 



CL = 0. 25927 

CD = 0.0106156 

CD/CL2 = 0. 1579 
CMLE = -0.056232 

XCP = 0. 21688 



NOTE: CD/CL 2 = 'z~ = — 777- Used to compare results to those for elliptic loadin 

C; 7 i A K 
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nnnnnn nonn nnnnnnnonnnnnnnnnnnnnnnnnnnnnnnnnnnnonnnnn 



PROGRAM VORLAT LISTING 



PROGRAM VORLAT 

*** MODIFIED FOR USE ON THE MICR0VAX/2000 BY J.A. CAMPBELL (JUL 88) 
FINAL UPDATES MADE 14 SEP 88 - ( JAC ) 

*********** ********************************************************* 

PROGRAM VORLAT : VERSION 4 4 AUGUST 88 

ORIGINAL IBM MAINFRAME PROGRAM WAS ADAPTED FROM JACK MORAN'S BOOK 
'AN INTRODUCTION TO THEORETICAL AND COMPUTATIONAL AERODYNAMICS ' , 
WILEY AND SONS, NEW YORK 1984. THE LISTING IS FOUND ON PAGE 151. 

PROGRAM FLEXIBILITY AND USER INTERFACE WAS REVISED FOR 
PROFESSOR J.V. HEALEY BY JOHN CAMPBELL. JULY 1988. 

VERSION 4 USES A COSINE SPACING ALGORITHM IN THE SPANWISE 
DIRECTION OVER A RANGE OF ZERO TO PI OVER THE HALF SPAN 
AS IMPLEMENTED IN VERSION 3. AN ATTEMPT WAS MADE TO CHANGE 
THE RANGE FROM ZERO TO PI/2, HOWEVER TIME CONSTRAINTS PREVENTED 
ITS SUCCESSFUL INCORPORATION. THERE APPEARED TO BE A PROBLEM 
WITH THE INDICES OF THE MATRICES. THE LINES ADDED IN VERSION 4 
BUT NOT INCORPORATED ARE NOTED BY CCC IN THE FIRST COLUMNS. 

SIGNIFICANT UPGRADES HAVE BEEN IMPLEMENTED IN VERSION 4 WITH 
RESPECT TO EASE OF OPERATION AND ERROR CORRECTION. 

STATEMENT LABELS 60, 70, AND 80, AS WELL AS REFERENCES TO THEM, 

IN THE PREVIOUS VERSION HAVE BEEN CHANGED TO 160, 170 AND 180. 

******************************************************************** 

PROGRAM VORLAT : VERSION 3 14 MAY 86 

VORTEX-LATTICE METHOD FOR FLAT RECTANGULAR WING 

**************************************************************** 
**** VERSION 3 OF THIS PROGRAM INCORPORATES AN OPTION **** 

**** OF HAVING THE COMPUTATION DONE USING EITHER A **** 

**** COSINE GRID SPACING OR UNIFORM GRID SPACING IN **** 

**** BOTH THE X-( CHORDWISE ) AND Y-( SPANWISE) DIRECTIONS **** 

**** **** 
**************************************************************** 

INTEGER NANS 
DIMENSION GAN( 350 ) 

COMMON DX,DY,AR,PI,IOPT,NX,NY 
COMMON /COF/ A( 350,351 ),NEQNS 
PI = 3.1415926535 
NPASS = 1 



FOLLOWING LINES FOR OUTPUT FILES ADDED BY J.A. CAMPBELL ( JUL88 ) 
OPEN FILE FOR COEFFICIENT OUTPUT 
OPEN ( UNIT = 11 , 



FILE= 'V0RLAT4.DAT' > 

ORGANIZATION= ' SEQUENTIAL 1 , 

ACCESS= 'SEQUENTIAL', 

RECORDTYPE= 'VARIABLE', 

FORM= 'FORMATTED', 

ST ATUS= 'UNKNOWN') 

INPUT ASPECT RATIO ( AR ) , NUMBERS OF VORTICES 
IN X- AND Y- DIRECTIONS I NX, NY ) AND 
ANGLE OF ATTACK IN DEGRESS (ALPHA) 

CALL LIBRARY ROUTINE TO CLEAR THE SCREEN, THE PRINT HEADER 
CALL CLRSCRN 
PRINT * 

PROGRAM VORLAT : VERSION 4 : 10 SEPTEMBER 88 



PRINT *, 
PRINT * 
PRINT *, 
PRINT *, 
PRINT * 
PRINT * 



VORTEX-LATTICE METHOD USED TO DETERMINE SPANWISE' 
LIFT DISTRIBUTION FOR A FLAT RECTANGULAR WING' 



10 PRINT *, ’ ENTER THE ASPECT RATIO?' 

READ *, AR 

IF (NPASS .GT. 1 )GO TO 70 

30 PRINT INPUT THE NUMBER OF VORTICES, IN THE X AND Y DIRECTIONS 

+ (NX, NY)' 

32 READ *, NX, NY 

IF ( ( NX*NY J .GT. 350) THEN 

PRINT *, ' NX * NY MUST BE LESS THAN OR EQUAL TO 350.' 

PRINT *, • PLEASE REENTER. ’ 

GO TO 32 
END IF 

IF (NPASS .GT. 1 )GO TO 70 

50 PRINT *, ' WHAT IS THE ANGLE OF ATTACK IN DEGREES?' 

52 READ *, ALPHA 

IF (ALPHA .EQ. 0. ) THEN 

PRINT ALPHA MUST BE GREATER THAN ZERO. PLEASE REENTER.' 

GO TO 52 

ELSE IF (ALPHA .GT. 45.) THEN 

PRINT *,' ALPHA MUST BE LESS THAN 45. PLEASE REENTER.' 

GO TO 52 
END IF 

IF (NPASS .GT. 1 )GO TO 72 
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non odd non non on o n n o n on 



C 

**** 
C 



60 PRINT *,* ENTER GRID SPACING OPTION (1 OR 2): 
+ ' > ( 2 ) COSINE ' 

READ *> IOPT 
NPASS = NPASS + 1 

MAKE CALCULATIONS AND ECHO CHECK THE INPUT 

70 DX = 1. /FLOAT (NX) 

DY = AR/( 2.*NY + .5) 

NEQNS = NX*NY 

CALL LIBRARY ROUTINE TO CLEAR THE SCREEN 
72 CALL CLRSCRN 

THE CURRENT VALUES ARE: 1 



( 1 ) UNIFORM* , 



PRINT * 

PRINT * 

PRINT * 

PRINT * 

PRINT * 

PRINT * 

PRINT * 

PRINT * 

PRINT * 

IF ( IOPT .EQ. 1 ) THEN 

PRINT * ‘ 

PRINT * 

ELSE 

PRINT * 

PRINT * 

END IF 
PRINT * 

PRINT NUMBER OF EQUATIONS TO SOLVE = 

PRINT * 

PRINT ' ARE THESE VALUES CORRECT? (YES=1, NO=2 ) * 
75 CALL QUERY (NANS) 

IFLAG = NANS 

IF (IFLAG .LT. 1 .OR. IFLAG . GT . 2) THEN 

PRINT *, * INVALID ENTRY. ENTER 1 OR 2 . ' 

GO TO 75 
END IF 

IF ( IFLAG .EQ. 1) GO TO 90 



1 ) ASPECT RATIO =* >AR 

2) NUMBER OF VORTICES ( NX, NY ) =',NX,NY 

3) ANG' E OF ATTACK (DEGREES) =’, ALPHA 
<t) GRI. SPACING: (1) UNIFORM, (2) COSINE 

THE CALCULATED PARAMETERS ARE: * 



DELTA X = * ,DX 
DELTA Y =' ,DY 

SINCE COSINE SPACING WAS CHOSEN,* 
DELTA X AND DELTA Y ARE VARIABLE.* 



,NEQNS 



,IOPT 



WHICH VALUE DO YOU WISH TO CORRECT? 
3 OR A * 



PRINT * 

PRINT * 

80 PRINT *, ' ENTER 1, 2 
CALL QUERY (NANS) 

IFLAG = NANS 

IF ( IFLAG .GT. A) THEN 

PRINT *, * INVALID ENTRY. ENTER 1, 2, 3 OR A. * 
GO TO 80 
END IF 

**** SEND CONTROL BACK TO OBTAIN CORRECT DATA **** 

GO TO ( 10,30 ,50 ) IFLAG 
**** CHANGE GRID TYPE **** 

IF ( IOPT .EQ. 1 J THEN 
IOPT = 2 
ELSE 

IOPT = 1 
END IF 
GO TO 72 

90 COSALF = COS( ALPHA^PI/180. ) 

SINALF = SIN( ALPHA*PI/180. ) 

INFORM OPERATOR THAT PROCESSING HAS STARTED 
WRITE (6,1003) 

SET COEFFICIENTS OF EQUATIONS FOR VORTEX STRENGTHS 

DO 100 I = 1 , NY 
DO 100 J = 1,NX 

I J = ( I - 1 )*NX + J 
Al I J , NEQNS + 1) = SINALF 
DO 100 K - 1,NY 

DO 100 L = 1 , NX 

KL = (K-1)*NX + L 
CALL DNWASH ( I , J ,K ,L ,A( KL ,IJ ) ,1 ) 

100 CONTINUE 

SOLVE FOR VORTEX STRENGTHS 

CALL GAUSS ( 1 ) 

DO 200 I = 1 >NY 
DO 200 J = 1 ,NX 
IJ = ( 1-1 )*NX + J 
200 GAM(IJ) = A( I J ,NEQNS + 1 ) 

PRINT OUT HEADINGS FOR DATA 

IF (IOPT .EQ. 1) WRITE (11,1000) NX ,NY , AR , ALPHA 

IF (IOPT .EQ. 2) WRITE (11,1001) NX ,NY , AR , ALPHA 

WRITE (6,1005) 

WRITE ( 11,1005) 

INITIALIZE TOTAL FORCE AND MOMENT COEFFICIENTS 

CMT =0.0 
CDT = 0.0 
CLT = 0.0 



6S 



C COMPUTE FORCE AND MOMENT COEFFICIENTS 

DO 320 I = 1,NY 
CX = 0.0 
CZ = 0.0 
CM = 0.0 

DO 310 J = 1,NX 
IJ = ( 1-1 )*NX + J 
W = 0.0 

DO 300 K = 1,NY 
DO 300 L = 1 >NX 
KL = ( K-l )*NX + L 
CALL DNWASH(K,L,I,J,DELH,2) 

W = W + DELW*GAM(KL) 

300 CONTINUE 

CX = CX + GAM(IJ)*(W - SINALF )*2 . 

CZ = CZ + GAM( I J )*COSALF*2 . 

IF (IOPT .EQ. 1) THEN 

CM = CM - GAM( IJ )*DX*( J - . 75 )*COSALF*2 . 

ELSE 

CM = CM - GAM(IJ)*IFC0S(J,NX)+0.25*(FC0S(J+1,NX) 

+ - FCOS( J ,NX ) ) )*COSALF*2 . 

END IF 
310 CONTINUE 

CL = CZ*COSALF - CX*SINALF 
CD = CZ*SINALF + CX*C0SALF 
IF ( IOPT .EQ. 1) THEN 

CLT = CLT + CL*DY*2./AR 
CDT = CDT + CD*DY*2./AR 

CMT = CMT + CM*2 . *DY/AR 

ELSE 

CCC DELY = (0.5*AR - 0 . 25*DY )*( FSIN( 1+1 ,NY ) - FSIN(I,NY)) 

DELY = ( 0 . 5*AR - 0 . 25*DY )*( FC0S( 1 + 1 >NY ) - FC0S(I,NY)) 
CLT = CLT + CL*DELY*2./AR 

CDT = CDT + CD>DELY*2./AR 

CMT = CMT + CM*DELY*2 . /AR 

END IF 

XCP = - CM/CL 
IF (IOPT .EQ. 1) THEN 

Y = ( I-.5)*DY 
ELSE 

CCC Y = (0.5*AR - 0 . 25*DY )*0 . 5*( FSIN( I >NY ) + FSINI 1 + 1 ,NY ) ) 

Y = (0.5*AR - 0. 25*DY )*( FCOS( I ,NY ) + 

+ 0.5*(FC0S(I + 1>NY) - FCOS( I ,NY ) ) ) 

END IF 

WRITE ( 6 » 1010 1 Y, CL, CD, XCP 
WRITE ( 11 , 1010 ) Y, CL, CO, XCP 
320 CONTINUE 

XCP = -CMT/CLT 
CD0CL2 = CDT/CLT**2 

WRITE ( 6,1020) CLT,CDT*CD0CL2,CMT,XCP 
WRITE ( lx , 1020 ) CLT,CDT,CD0CL2,CMT ,XCP 



THE COEFFICIENT OUTPUT DATA FOR LIFT, DRAG AND' 
PRESSURE HAS BEEN WRITTEN TO FILE V0RLAT4. DAT . ' 

DO YOU WISH TO: 

1) MAKE ANOTHER RUN OR’ 

2) END THIS SESSION' 

ENTER 1 OR 2.' 



1 ) GO TO 70 



PRINT * 

PRINT *, 

PRINT *, 

PRINT * 

<+00 PRINT *, 

PRINT *, 

PRINT *, 

PRINT *, 

PRINT * 

CALL QUERY (NANS) 

IF (NANS .EQ. ‘ ' 

STOP 

1000 FORMAT!//, 1 ** UNIFORM GRID SPACING **',///, 

+ ' NX= ',12,' NY= ',12,' ASPECT RATIO = 1 , F5 . 2 , 

&' ANGLE OF ATTACK = ', F5.2,//) 

1001 FORMAT ( // , ' ** COSINE GRID SPACING ***,///, 

+ 1 NX= ',12,' NY= ',12,' ASPECT RATIO = 1 ,F5.2, 

+' ANGLE OF ATTACK = 1 ,F5.2,//) 

1003 FORMAT ( //, ' PROCESSING BEGINS 1 ,/// ) 

1005 FORMAT ( //// 1 Y CL(Y) CD(Y) XCP(Y) 1 ,/) 

1010 FORMAT ( F6.3,3F10.5) 

1020 FORMAT ( ///// , ' CL = , ,F12.5,/,’ CD = , ,F1^.7,/, , CD/CL2 =',F7.4, 

+ /,' CMLE = ' , Fll . 6 ,/, ' XCP = ' , Fll . 5 ) 

END 

************************************************************** 
SUBROUTINE DNWASH ( I , J , K , L , W , IND ) 



C 

C 

50 

CCC 

CCC 



COMPUTE DOWNWASH ON PANEL CENTERED AT ( L- . 5 )DX, ( K- . 5 )DY 
DUE TO VORTICES AT PANELS CENTERED AT ( J-.5 )DX,+-( I-.5 JDY 

COMMON DX,DY,AR,PI,IOPT,NX,NY 

IF ( IOPT .EQ. 2 ) GO TO 50 
XA = DX*(J - .75) 

YA = DY*( I - 1) 

YB = DY*I 

IF (IND .EQ. 1) XP = DX*( L 

IF ( IND .EQ. 2 ) XP = DX*( L 

YP = DY*(K-.5) 

GO TO 60 

THE FOLLOWING LINES HANDLE THE COSINE SPACING SCHEME 

FAC IS THE HALF SPAN MINUS 

FAC = 0 . 5*AR - 0 . 25*DY 
XA = FC0S( J ,NX ) + 0 . 25*( FC0S( J + l ,NX ) 

YA = FAC * FSIN( 1-1 ,NY ) 

YB = FAC * FSINt I ,NY ) 

YA = FAC * FCOS( I ,NY ) 



- .25) 

- .75) 



A 1/4 LATTICE WIDTH INSET. 

FC0S( J ,NX ) ) 
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YB = FAC * FC03( I +1 >NY ) 

IF (IND .EQ. 1 I XP = FCOS(L,NX) + . 75*( FCOS( L+l ,NX ) - FCOS(L,NX)) 
IF (IND .EQ. 2) XP = FCOStL,NXl + . 25*( FCOS( L+l ,NX f - FCOS(L,NX)) 
CCC YP = FAC*0 . 5*( FSIMt K ,NY ) + FSIN( K-l »NY ) ) 

YP = FAC*l FCOS(K,NY ) + 0 . 5*( FCOS( K + l ,NY I - FCOS(K,NY))) 

60 W = WHV(XP,YP,XA,YA) - WHV( XP *YP ,XA > YB ) 

+ - WHV(XP,YP,XA,-YA) + WHV( XP , YP >XA , -YB ) 

H = W*. 25/3. 1915926585 

RETURN 

END 

*********************************************************************** 
FUNCTION WHV(X1,Y1,X2,Y2 ) 

IF (XI .EQ. X2 ) GO TO 100 



X1-X2 )**2 + ( Y1-Y2 )**2 )/( XI - X2 ) ) 



WHV = ( 1. + SQRT ( ( 

+ /(Yl - Y2J 

RETURN 

100 WHV = 1 . /( Yl - Y2 ) 

RETURN 

END 

*********************************************************************** 



THIS RETURNS THE NONDIMENSIONAl X COORD OF EACH SECTION BOUNDARY 



FUNCTION FCOS( I >N ) 

PI = 3 . 191592b585 

FRACT = FLOAT (I-l)/FLOAT(N) 

FCOS = 0.5 * (1. - COS( PI*FRACT ) ) 

RETURN 

END 

*********************************************************************** 



THIS RETURNS THE NONDIMENSIONAL Y COORD OF EACH SECTION BOUNDARY 
THIS WAS INTENDED TO IMPLEMENT THE SIN-LAW LATTICE SPACING SCHEME 
REFERRED TO BY GARY HOUGH, JOU. OF ACFT . , MAY 1973, VOL. 10, NO. 5 



FUNCTION FSINt I ,N ) 

PI = 3.14159265S5 

FRACT = FLOAT! I )/FLOAT(N) 

FSIN = (SIN( .5*PI*FRACT )) 

RETURN 

END 

C ************** *^£* **************** **********^**********^ ****** ********** 
SUBROUTINE CLRSCRN 



LIBRARY ROUTINE TO CLEAR THE SCREEN. 



1ST AT = LIBSERASE PAGE (1,1) 

RETURN 

END 

C *********************************************************************** 
SUBROUTINE QUERY ( NANS ) 



ROUTINE TO TRAP ERRORS CAUSED BY IMPROPER RESPONSES TO QUESTIONS. 
THE COMPUTER GENERATES AND ERROR WHEN A CHARACTER IS SUPPLIED TO 
A QUESTION EXPECTING AN INTEGER OR REAL VALUE. 



NOTE ST = 0 
1 CONTINUE 

IF ( NOTEST .GT. 01 THEN 

PRINT *, ' CHARACTER VALUES ARE NOT VALID.' 

PRINT *, ' PLEDGE ENTER AN INTEGER VALUE.' 

END IF 

NOTE ST = NOTE ST + 1 
READ ( 5,*,ERR=1 1NANS 
RETURN 
END 

C *********************************************************************** 
SUBROUTINE GAUSS ( NRHS ) 



SOLUTION OF LINEAR ALGEBRAIC SYSTEM BY 
GAUSS ELIMINATION WITH PARTIAL PIVOTING 



c A 

NEONS 

NRHS 



= COEFFICIENT MATRIX 
= NUMBER CF EQUATIONS 
= NUMBER OF RIGHT HAND 



SIDES 



RIGHT-HAND SIDES AND SOLUTIONS STORED IN 
COLUMNS NEQNS+1 THRU NEQNS+NRHS OF ^ A 

COMMON DX,DY,AR,PI 

COMMON /CO F/ A( 350,351 ),NEQNS 



NP 
NTOT 



DO 150 



= NEQNS + i' 

= NEQNS + NRHS 

GAUSS REDUCTION 

I = 2, NEQNS 



-- SEARCH FOR LARGEST ENTRY IN (I-l)TH COLUMN 
ON OR BELOW MAIN DIAGONAL 

IM =1-1 

IMAX = IM 

AMAX = ABS(A(IM,IM)) 

DO 110 J = I, NEQNS 

IF (AMAX .GE. ABS( A( J , IM ) ) ) GO TO 110 



110 



IMAX 
AMAX 

CONTINUE 



= J 

= ABS( A( J >IM ) ) 



SWITCH (I-l)TH AND IMAXTH EQUATIONS 
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non oooo 



130 



200 

210 

220 



IF (IMAX .NE. IM) GO TO 140 
DO 130 J = IM.NTOT 
TEMP = A ( I M > J ) 

A ( IM > J ) = A( IMAX > J ) 
A(IMAX,J) = TEMP 
CONTINUE 



ELIMINATE (I-l)TH UNKNOWN FROM 
ITH THRU ( NEQNS )TH EQUATIONS 



140 DO 150 



I .NEONS 

A( J,IM)/A(IM,IM) 



150 



DO 150 K = I.NTOT 

A(J,K) = A(J>K) - R*A( IM >K ) 

BACK SUBSTITUTION 

DO 220 K = NP,NTOT 

A( NEQNS ,K ) = A( NEONS, K )/A( NEQNS , NEQNS ) 
DO 210 L = 2 .NEQNS 

I = NEQNS + 1 - L 

IP =1+1 

DO 200 J = IP, NEQNS 

A(I,K) = A(I,K) - A(I.J)*A( J,K) 
A(I,K) = A( I ,K )/A( 1,1) 

CONTINUE 

RETURN 

END 
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Introduction 

The purpose of this manual is to permit the user to utilize the JETFLAP program very 
quickly and easily while requiring little understanding of the underlying EYD theory. 
The program JETFLAP can be run as a stand alone program if the user wants to de- 
velop the JETFLAP input data file manually, but this is not recommended. The layout 
of the data is not intuitive and its formatting is critical. For this reason, the program 
JETFLAPIX has been created to assist the user in creating the JETFLAP input data file 
through an interactive terminal session. 

This interactive program is a user-friendly way of creating the input data file required 
by the wing analysis program JETFLAP. When executed, JETFLAPIX asks questions 
of the user in order to construct and write to a file the required JETFLAP input data file. 

The following manual contains an explanation of the required input data. The reader 
will find a parallel explanation, with minor modifications, in References 7 and S. Some 
parts of these sources have been duplicated in total since they required no comment and 
were relevant to the present explanation. References to input data cards have been 
changed to data file lines. In the interest of space, some sections were not included, but 
the interested reader may find them helpful. 

Three sample data input files and their associated output files are included at the end 
of this appendix. The file YOYTEST.DAT contains information approximating the 
VOYAGER wing planform. TAPER.DAT illustrates the use of the trapezoidal 
planform simplification and a semi-circle spacing scheme. The wing is swept 45 degrees, 
has an aspect ratio of 8.0 and a taper ratio of 0.45. The DOUGLAS.DAT data file is 
contained in Ref. 7 and was also located at the end of the magnetic tape following the 
program JETFLAP. It has been used as a program validation test case by comparing 
the present results with those of Refs. 7 and 8. This file contains information for a 
simple rectangular jet-flapped wing and three fundamental cases. The stability derivative 
flag has also been set. 

Assumptions and Limitations 

Before using this program, the user should be aware of the assumptions used in devel- 
oping the EYD method and the resulting danger of extending the theory beyond its 
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limits. The assumptions are explained in the section on theory contained in References 
7 and 8. but they are summarized below. 

1. Linearity - This assumption allows the superposition of fundamental geometric 
cases or solutions but also limits, as an example, the total deflection of how by 
flaps. Reference 7 states that the small angle assumptions of the linearized ap- 
proach make it unlikely that the program would accurately predict the character- 
istics of a wing with a flap deflected at 60 degrees. 

2. Thin Wing Approximation - Enabling the simplified treatment of wing sections by 
transferring boundary conditions to the chordline, this assumption limits the accu- 
racy of the program in modeling thick wings. 

3. Inviscid Flow - Because of its inability to predict separated flow, the computed lift 
may be unrealistically large for a wing at high angle of attack or with a sizeable flap 
deflection. Also, the program cannot consider parasitic drag. 

4. Incompressibility - This assumption limits the range of speeds for which the pro- 
gram can be used to that in the low subsonic range. The Prandtl-Glauert rule can 
be applied to cases where subsonic Mach number effects become important (Ref. 
3) and. in fact, has been included in a later version of this EYD program. 

5. Irrotationality - The irrotationality assumption usually imposes no additional limi- 
tation in low-speed external aerodynamics where the flow can be considered 
irrotational. 

6. Interference Effects - No allowance is made for mutual interference effects between 
the wing and pylons, nacelles or fuselage. Ground effect is also neglected. 

7. M ing Area Variation - Although multiple-flapped wings may be modeled, no al- 
lowance is made for the increased wing area due to flap extension. An example is 
a Fowler Flap. If the configuration of concern is such a case, a modification of the 
original wing planform area input value would have to be made. 

S. Trailing Edge Jet Sheet - The program only allows the jet sheet to emanate from 
the wing trailing edge. Therefore, doubtful results will be obtained on augmentor- 
type flaps, slots and externally blown flap systems. 

9. Computer Run Time - An increase in the number of elements used to model the 
wing planform will increase accuracy. However, according to Reference 7 the time 
to compute increases proportionally between the square and the cube of the num- 
ber of elements used. On the Micro VAX 2000. a run using 112 elements 
(VOYAGR.DAT. no jets, two fundamental cases) took 137 seconds to run. while 
a wing with 37 elements (DOUGLAS.DAT. 21 wing 16 jet elements, three cases 
and stability derivatives) required only 91 seconds. These times may be further 
shortened by sending the output to a file vice the screen. In the case of the 
VOYAGR.DAT run, the time was cut by more than half to a mere 59 seconds. 



Data Preparation Requirements 

Prior to using the JETFLAPIN and JETFLAP programs, the user must accomplish the 
following: 

1. Draw a scaled plan view of the wing and, if present, the jets. 
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2. Divide this planform into spanwise sections parallel to the freestream velocity. A 
maximum of 40 is permitted. 

3. Divide each section into rectangular base elements. These elements, literally, are 
the bases of the EYD elements [Ref. 8: p. 53] which, in turn, are the "building 
blocks" of the program operation. Each row can be divided into a maximum of 40 
base elements, 20 on the wing and 20 on the jet. However, the maximum number 
of these elements may not exceed 600. 

4. Using a logical scheme, translate the arrangement of these elements and the de- 
flections of the EVD's into a format usable by the program. 

5. Refer to the section on the Formulation of the Input Data for a suggested method 
of approaching the problem of data determination. 



Input Description 

A brief description of each piece of input information required is provided during exe- 
cution of the JETFLAPIN program, however for the benefit of the user they are re- 
peated and expanded upon here. 

• Title Line - This card provides any desired description of the computer run. The 
title will be printed at the top of the first page of output. A maximum of SO char- 
acters may be input. 

• General Planform Parameter Line - This line contains basic planform information. 

AREA Wing area, in units of (SPAN) 2 to be used for normalization of the 
aerodynamic coefficients. Must be in the same units as SPAN, i.e., if 
span is in feet, the area should be in ft 2 . 

SPAN Wing span, in any desired length units. 

CREF Wing reference chord, to be used for normalizing various aerodynamic 
coefficients. It may be any chord length and must be in the same units 
as SPAN. If a value of 0.0 is input, the mean aerodynamic chord. 
CMAC. which is computed automatically, will be used. 

XMC Pitching moment center. Point about which pitching moments will be- 
taken, measured from the wing apex. Same units as span. NOTE: The 
wing apex is defined by the program, implicitly, as the intersection of the 
x-axis with the leading edge when the wing is oriented without a sideslip. 
If the wing should be input in a yaw, the apex remains at that point. 

XCG Wing Center of Gravity. Measured from the apex, this point is used as 
a pitching axis for computation of stability derivatives, XCG need only 
be input if IDER1Y # 0. Same units as SPAN. 

• General Control Line - This line contains control "flags" which describe the basic 
characteristics of the computer run. 

NROWS Number of spanwise sections (rows) into which the wing is divided. For 
symmetric or anti-symmetric wings, only the number of sections on the 
right half of the wing should be input. For non-symmetric wings, 
NROWS equals the total number of spanwise rows from wing tip to 
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N CASES 



ISYMM 



IPRINT 



JETFLG 



IGTYPE 



HINGE 



I DERI V 



wing tip. See [Ref. S: pp. 79-SI] for a discussion on symmetric versus 
non-symmetric wings. 

Total Number of Fundamental Cases. There will always be one funda- 
mental case, that being a Hat plate at one degree angle of attack. No 
input data is required for that case and it will be labeled by the program 
a Case 1. Therefore. N CASES must be one greater than the number of 
cases for which input data will be given (data lines 12 and 13). to allow 
for the angle of attack case. 

Symmetry Indicator. 

■ =0, Wing is symmetric 

■ >0, Wing is non-symmetric 

■ <0, Wing is anti-symmetric 
Printed Output Control Flag. 

■ >1. Print geometry details and total aerodynamic coefficients, 

■ = 1, In addition, print span wise loading. 

■ =0. In addition, print chordwise loading, 

■ < 0. In addition, print all matrices, back substitution checks and 
other details. 1 his option is normally reserved for trouble-shooting, 
since it produces a very large amount of output. 

Jet Indicator Flag. A Hag used for signaling if there is a jet issuing from 
the trailing edge of the wing. 

■ =0. There is a jet sheet and jet data will be input. 

■ =1. There is no jet sheet. 

Wing Planform Geometry Flag. 

■ =1, Wing planform is completely arbitrary and sectional leading and 
trailing edge coordinates will be read to define the planform. 

■ =2, Wing is trapezoidal and simplified planform data will be input. 
This type of input can only be used if the wing is symmetric. NOTE: 
Although a triangular shaped wing might be thought of as a degen- 
erative trapezoid, this input cannot be used lor a delta planform. 

Hinge EVD Flag. 

■ =0, Regular EYD's will be used on all hinge elements. 

■ >0, Hinge EVD's will be used on all hinge elements. Not permitted 
if computing dynamic stability derivatives, i.e., IDERIV > 0. 

Dynamic Stability Derivative Flag. 

■ =0, Basic run will be executed with no stability derivatives computed. 

■ >0, In addition, a dynamic stability derivative run will be executed. 
This option requires the program to make an additional run, ap- 
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proximately doubling the computer time. NOTE:: The derivative run 
also reduces to S the maximum number of optional fundamental cases 
permitted, since an extra fundamental case is generated by the pro- 
gram to be used during derivative calculations. 

• Section Centerline Location Lines - These lines contain the spanwise locations of 
the centerline of each wing (and jet) section. JETFLAPIN will will place up to 
eight values on each line, with a maximum of 5 lines (40 sections) allowed. 

Y Spanwise distance from wing centerline (x-axis) to the section centerline, 

normalized by SPAN, 2. All values must satisfy (-1.0 < Y < 1.0). 
NROWS (number of row sections) values must be input, beginning at 
the right wing tip and working to the wing centerline for symmetric or 
anti- symmetric wings, or to the left wing tip for non-symmetric wings. 

• Wing Section Type Line - This card indicates the chordwise arrangement of EVD 
elements for each section on the wing. The section type is determined by the 
number and spacing of the elements within each section. 

ICTYPE Type Number of Each Wing Section. Any sections having the same 
number of elements, all with the same distance from the section leading 
edge (normalized by the xectional chord) are of the same ICTYPE. A 
maximum of ten different types is allowed. The section at the right wing 
tip is designated ICTYPE 01. Each new type receives a sequentially 
higher ICTYPE. The highest ICTYPE is referred to by the program as 
NWTYPE. NROWS values must be input, therefore, each section must 
be "typed". 

• Number of Chordwise Wing Elements Line - This line contains the number of 
chordwise EVD elements for each wing section type (ICTYPE). 

NI Number of Chordwise Elements per ICTYPE. Enter, in ascending order 

by ICTYPE. the number of elements within that ICTYPE. There may 
be as few as two or as many as twenty elements per section type. 
NWTYPE (the number of different section types) values are required. 

• Wing Chordwise Element Coordinates - These lines contain the x c coordinates of 
each EVD element for each ICTYPE. 

XBW The chordwise coordinate of each EVD vortex point, measured from the 
leading edge of the section, normalized by the sectional chord. The first 
XBW of each set must be 0.0 and the last, less than 1.0. There may be 
as few as two or as many as twenty values per section type. NWTYPE 
(the number of different section types) sets of values are required. 
NOTE: Reference 7, Vol. II refers to these coordinates as XB. The "W" 
was added in reference S to be consistent with the nomenclature of the 
program listing and also to differentiate between hinge point coord., 
XBH, and XBJ, the coords, of elements on the jet sheet portion of the 
section. 

• Planform Information Lines - There are two types of input lines used to define wing 
planform. Line 8a is used for arbitrary wing planforms (IGTYPE= 1). Line 8b is 
used for trapezoidal wing planforms (IGTYPE=2). The program JETFLAPIN 
will choose the correct form based on the value of IGTYPE. 
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• Leading and Trailing Edge Coordinates - In order to define an arbitrary planform. 
the leading and trailing edges for each section must be defined. All section coor- 
dinates need not be input, however. The program must have the tip and root co- 
ordinates. as a minimum, and any other section's which would define a break in the 
edge. The program will assume a straight edge exists between coordinates input, 
and will interpolate between them. A minimum of two sets of coordinates and a 
maximum of NROWS is required. 

Y Spanwise distance from a section centerline to the centerline of the wing. 

normalized by the half span. Each value must be exactly the same as 
those input for the section centerline location lines. JETFLAPIN auto- 
matically uses the previously input values. 

XLEAD Leading Edge Coordinate. Input the chordwise distance from the section 
leading edge, at the section centerline, to the wing apex. Same units as 
SPAN, i.e., not normalized by the chord. 

XTRAIL Trailing Edge Coordinate. Input the chordwise distance from the section 
trailinc edee. at the section centerline, to the wins apex. Same units as 

span" 

9 A "9" must appear in column one of the next line after the last edge co- 

ordinate in order to signal that all desired sections have been input. This 
is required only if 1GTYPE=1 and is handled automatically bv 
JETFLAPIN. 

• Trapezoidal Wing Parameters - This line contains planform information for the 
trapezoidal wing. It is used when 1GTYPE=2. This type of input may be used 
only when the wing planform is symmetric. 

ARATIO Wing Aspect Ratio. Input the value of (SPAN) 2 AREA. JETFLAPIN" 
automatically calculates this value from previously supplied information. 

SWEEP Sweep angle of the Quarter-Chord Line. Input the angle in degrees. 

TR Taper Ratio. TR is defined as the chord at the wing tip divided by the 

chord at the wing root. 

• Jet Section Type Line - This line indicates the chordwise arrangement of EYD ele- 
ments for each section on the jet sheet. The jet sheet uses the same sectional 
boundaries as the conventional wins sections forward of it. This line is required 
only if JETFLG = 0. 

IJTYPE Type Number of Each Jet Section. Input the type number of each sec- 
tion of the wing with respect to the presence of a jet sheet aft of it. Since 
there is no requirement that the jet sheet span the entire wing, sections 
without a jet are designated with a "0". Similar to line 5, the wing section 
type line, as each section within the jet sheet is encountered, it either re- 
ceives a sequentially higher IJTYPE of the same IJTYPE as a previously 
labeled equivalent section. The number of different jet section types is 
NJTYPE. The zeroes do not count as IJTYPE's for the purpose of 
s ununin g types to find NJTYPE. The number of non-zero values input 
is N’ROWSJ, the number of sections har ing a jet. The maximum num- 
ber of jet section types is 10. Implied also is that NJTYPE must be less 
than, or equal to. NROWSJ. NROW S rallies are required. 
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NOTE: Due to a computational procedure, there must be at least three 
adjacent jet sections if there is one. Also, inboard or outboard of a 
partial span jet sheet, a group of at least three unblown sections must 
exist. 

• Number of Chordwise Jet Elements - This line contains the number of chordwise 
EVD elements for each jet section type. It is similar to line 6, number of chordwise 
wing elements per section type, except that NJTYPE values must be input. Re- 
quired only if JETFLG = 0. 

NI Number of Chordwise EVD Elements for Each Jet Section Type. Enter. 

in ascending order by IJTYPE, the number of elements within that 
IJTYPE. There may be as few as two or as many as ten elements for 
each jet section type. NJTYPE (the number of different jet section 
types) values are required. 

• Jet Chordwise Element Coordinates - These lines contain the x ’c coordinates of each 
element of each jet section type. NJTYPE sets lines are required, each with NT 
values of x, c. These values are required only if JETFLG = 0. 

XBJ Chordwise Coordinate of Each per IJTYPE. The chordwise coordinate 
of each EVD vortex point, measured from the leading edge of the sec- 
tion (at centerline) and normalized by the sectional chord. Thefirst value 
for XBW of each set must be 1.0 (trailing edge). The last two base ele- 
ments in the jet section are overlapped by the Far-Jet (or Jet. or Infinity) 
EVD which has a length of 1 0 10 , approximating infinity. Therefore, there 
is no proactical maximum coordinate for elements within the jet. There 
may be as few as two or as many as ten values per jet section type. 
NJTYPE (the number of different jet section types) lines of values are 
required. 

• Fundamental Case Control Line - This line identifies the types of linear geometric 
variations to be included in each fundamental case. The number of fundamental 
cases input must be one less than NCASES (line 3), to allow for the angel of attack 
case. A separate line is required for each of the input cases. In each of the (lags 
below, a zero value indicates omission of the respective type of input for that fun- 
damental case. A non-zero value indicates that the variation will be included and 
input must be given to define it. JETFLAPIN sets the non-zero value to corre- 
spond with the number of the fundamental case. i.e.. for fundamental case number 
two. variations to be included will be indicated with a "2". For each variation se- 
lected, a corresponding line will follow containing the information defining that 
variation. NOTE: Refs. 7 and S use the same names shown below, however, in the 
program listing fo- JETFLAP under subroutine INCASE thev are refered to re- 
spectively as IN'PUTT. IXPUTH, 1NPUTD, INPL'TC, and IXPUTB. 

INTVVST Spanswise twist distribution flag. 

INHITE Leading edge vertical displacement flag. 

INDELJ Jet deflection flag. 

INCAMB Camber flag. 

IXBETA Wing hinge deflection flag. 
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• Fundamental Geometric Variation Lines - These lines are input only in the appro- 
priate flags in the fundamental case control line has been set to a non-zero value. 



TWIST 


Sectional Wing Twist. Enter the wing twist, in degrees, at the section 
centerline, with respect to the wing reference plane. Positive values are 
in the same sense as a positive angle of attack (leading edge up). 
N'ROWS values are required. Required only it 1NTWST ^0. 


HO 


Displacement coordinate of the section leading edge from the wing ref- 
erence plane, normalized by the sectional chord. Leading edge displace- 
ment may be the result of dihedral, twist, nonlinear movement of a 
leading edge device, etc. Translation resulting from ordinary linear 
leading and trailing Hap deflections and angle of attack are accounted for 
automatically by the program. These values are used only for the 
computaion of the jet thrust contribution to pitching moments and 
therefore will have no effect unless jet sheets exist. N’ROWS values are 
required. Required only it 1XHITE # 0. 


DJ 


Jet Turning Angle. The jet turning angle, in degrees, relative to the 
trailing edge. Positive deflection is downward. NOTE: JETFLAPIN 
requires that the values are input in the order that they are encountered 
within the jet sheet, working from the right wing tip towards the 
centerline. NROWSJ values are required. Required onlv it INDELJ ¥= 
0 . 


ICT 


Camber Type Number for Each Wing Section. These values are similar 
to the wing section type values on line 5. In order for two sections to 
have the same ICT. the number of elements, their x c. and the camber 
angle associated with them must be the same. NROWS must be input 
with a maximum of 10 ICT's allowed. The highest value is NCT and 
there may be no "gaps” in the numbering sequence. A zero value indi- 
cates no camber. Required only it INCAM B == 0. 


AC 


Camber Angle. The camber angle, in degrees, at eh downwash control 
point of each EVD. The downwash control point is defined as a point 
chosen halfway between adjacent XBW's (line 7) including the trailing 
edge. The angle will be positive in the same sense as positive angle of 
attack. NCT lines are required. Required only it INCA MB # 0. 


ACTE 


Trailing Edge Camber Angle. This is the trailing edge deflection angle 
due to camber only. The values arc used for determining the angle at 
which the jet sheet issues from the wing. These cards are. therefore, only- 
necessary if there is camber (INCA MB i= 0) and if there is a jet sheet 
(JETFLG = 0). NROWSJ values are required. 


IHT 


Hinge Section Type. Similar in concept to Wing Type (ICTYPE) and 
Camber Type (ICT); starting with the first section, designate the type 
of section with respect to hinges in the section. A section with no hinges 
will be "0". For sections to have the same IHT they must be alike in 
their number of hinges, not to exceed four, location of hinges (x c). their 
type (leading or trailing edge flap) and in all deflections. There may be 
as many different lHT's as there are sections. The number of different 
HIT'S is called NUT, and there may be no "gaps" in the sequence. 
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NROWS values are required, therefore every section must be "typed". 
Required only it INBETA # 0. 

XBH Hinge Point Distance. The distance from the leading edge of the section 
to the hinge point, i.e., where the hinge line intersects the section 
centerline, the distance is normalized by the sectional chord and must 
be one of the XBW values entered on line 7. A set of values is required 
for each hinge section type; NHT sets. 

ILT Leading or Trailing Edge Indicator. 

■ =0. Trailing edge flap hinge (positive deflection in the sense of posi- 
tive angle of attack). 

■ # 0, Leading edge flap hinge (positive deflection in the sense of neg- 
ative angle of attack). 

BETA Hinge Deflection Angle. The deflection angle, in degrees, of the element 
aft of the hinge point relative to the element forward of the hinge point. 

• Composite Case Lines - These lines indicate how the fundamental cases that are 
input on lines 12 and 13 are to be combined to form or model the wing under study. 
A maximum of 24 composite cases are permitted. No composite case may also be 
chosen and JETFLAP1N will automatically place a " 9 " in the first column of this 
line. 

N Fundamental Cases to be Included. Indicate the fundamental case 

number which is to be included in forming a given composite case. As 
many as ten fundamental cases may be combined in any one composite 
case. The fundamental cases are identified in the order in which they 
were input. NOTE: Recall that fundamental case number 1 is the one 
degree angle of attack case. 

A Multiplicative Factor. This factor multiplies the fundamental case pre- 

viously input. Had the fundamental case included a hinge deflection of 
10 degrees, a value of A = 1.6 would introduce a flap deflection of 16 
degrees into that particulat composite case. 

9 End of Composite Cases. This value is placed at the end of the last 

composite case or by itself to indicate the completion of composite case- 
information or that no composite cases are desired, respectively. NOTE: 
This "9" card is not conditional, it will be in every run. 

• Jet Strength Line(s) - These lines contain the jet strength for all sections which 
have a jet. An unlimited number of sets of values, maximum of 40 per set, may 
be entered. NROWSJ values are required. Required only it JETFLG = 0. 

CMU Sectional Jet Momentum Strength for each jet row. CMC is defined as 
CMC = J (qc(y)), where J is the sectional jet momentum per unit span, 
q is the dynamic pressure, and c(y) is the sectional chord. Since the data 
refers to only sections with jets, 0.0 may not be input unless all are 0.0. 
As many sets of CMU data may be input as desired. To run a case on 
a jet-flapped wing to examine the characteristics without the jet, a set 
of values all equal to zero must be entered. This option generates a 
complete set of loadings and other aerodynamic coefficients for each set 
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of CMU data input. (0.0 < C.MU < 800.0) Required onlv it JETFLG 
= 0 . 

9 A "9" is placed in column one of the line following all CMU data to 

signal the end of CMU input. Handled automatically by JETFLAPIN. 
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Input Restrictions 

A summary of the input restrictions described in References 7 and S is listed below. 
These have been incorporated into the error-checking and screen messages provided in 
the JETFLAPIX progn m and are repeated here as a quick reference during data prep- 
aration. 

1. A "Rule of Three" is implied with regard to dividing the wing (and jet sheet) into 
sections. At least three adjacent sections of either blown or unblown types are re- 
quired. A jet cannot consist of one or two sections. Likewise, if the region of jet 
sheet is partial span and located so that it is bordered on both inboard and out- 
board sides by conventional (unblown) wing, those unblown portions of the wing 
must also have three adjacent sections each. 

2. The number of spanwise sections, XROWS, requires 3 < XROWS < 40. 

3. 1 < XCASES < 10. There is always one Fundamental Case generated by the pro- 
gram. Xine others may be input. 

4. The number of chordwise elements in the wing part of a section. XI, requires 
2 < XI < 20. 

5. The number of chordwise elements in the jet part of a section. XI, requires 
2 < XI < 20. 

6. Maximum of 10 section types for the wing or the jet. (ICTYPE, IJTYPE < 10 ). 

7. On the wing. 0.0 < XB\Y < 1.0. 

S. On the jet, 1.0 < XBJ. 

9. Onlv XROWSJ, the number of rows with jets, values required for DJ, ACTE, and 
CMC. 

10. Maximum number of camber section types is 10. 

11. There mav be as manv hinse section tvpes. XHT. as there are rows (or sections). 
(1< XHT< XROWS) ' 

12. Each section may have four hinges in any combination of leading and trailing edge 
flaps. 



13. The jet blowing coefficient, CMC. is restricted to, 0.0 < CMC < S00.0. 



Formulation of the Input Data 

The most difficult and time-consuming part of the wing analysis using the JETFLAP and 
JETFLAPIX programs is the decomposition of the wing into elements and obtaining the 
coordinates of those elements. There is hope that follow-on work will be conducted to 
integrate the sophisticated graphics capabilities of the Micro VAX '2000 with the data 
input portion of the JETFLAP program, however, for the present, the following me- 
thodical approach to the problem is recommended. 
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A table such as that shown in Ref. 8, p. 117. will help the user organize the required 
data. Starting at the beginning of the problem, the user is urged to follow the steps be- 
low; 

1. Make or obtain a scaled drawing of the wing with all flaps and other details drawn 
on the planform. The scaling is often important in obtaining geometrical data that 
is often not presented explicitly. 

2. If possible, create equations for the leading and trailing edges. For example, if the 
edge is a straight line, substitute tip and root dimensions into the Two-Point Form 
of the equation fo a straight line. Such an equation will facilitate the finding of 
leading trailing edge coordinates once spanwise section centerline coordinates have 
been established. 

3. Draw in spanwise sections taking into account obvious areas of rapidly changing 
loading (wing tips, near flaps) and rapid changes in sectional chord. It is important 
to define sections near breaks in the wing, such as leading edge extensions, other- 
wise the program, seeing only the wing edge coordinates, might read that portion 
of the leading edge as a relatively flat segment of a multisegment tapered wing. 

4. Make two columns, entering sections, starting with 1 at the wing tip. in column one 
and the section centerline coordinates (normalized by the semi-span) in column 
two. 

5. Draw in chordwise elements for each section. It is more expedient to strive for the 
same distribution on each section, if possible, unless camber discontinuities (flaps, 
rapid changes in mean camber ine slope) dictate otherwise. 

6. Enter the coordinates of the vortex points, normalized by the sectional chord, on 
each line next ot the appropriate section. NOTE. One of these coordinates must 
coincide with the point where the section centerline intersects a flap hinge line, if 
included. Circle or otherwise mark such coordinates for future identification. 

7. Proceeding down the rows of coordinates, any two rows with a different number 
of values or different values, are of different section types. In ascending order, label 
in another column each row with its type. The maximum number of types is 10 
and the highest type defined is called NWTYPE. 

S. At the end of each row write the total number of chordwise elements in that row. 
Circle the numbers that correspond with different types. 

9. In another column, list leading and trailing edge coordinates by substituting (Y) 
values into the leading and trailing edge equations, if available. NOTE. Only those 
edge coordinates which mark wing root, tip and breaks need be calculated, if the 
edges are straight line segments. 

10. Looking back over the completed table, the data for several of the input data file 
lines are readily available. Column numbers refer to columns in Table I. 

a. Col. 2 is line 4. 

b. Col. 3 is line 5. 

c. Cols. 4-12 contain data for line(s) 7. 

d. Col. 13 (circled entries) is line 6. 
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e. Cols. 2. 14, and 15, in that order constitute line 8a. 

In addition, the last row number in Col. 1 is NROWS {Cols. 1-2 on line 3). The 
total of Col. 13 entries is the total number of EVD's, which is limited to 600. More de- 
tails may be found in Ref. S . 

Sample Problem 

A sample session will illustrate the use of the JETFLAP and JETFLAPIN programs. 
The run can be accomplished using one of the sample data output files provided at the 
end of this appendix. It is recommended that one of the simpler data files, such as 
TAPER.DAT or VOYAGR.DAT, be used to respond to the questions asked by the 
JETFLAPIN program. This method will allow the user to try out the program and get 
familiar with the questions asked, prior to going through the effort involved in formu- 
lating the data for a new problem. 

Starting the Program 

Begin with the screen showing the DCL prompt, which looks like this. 

$ 

Next, ensure that the program is in your director} - by typing 

DIR [Return] 

and viewing the files for JETFLAP.EXE, JETFLAP. OBJ., JETFLAPIN.EXE and 
JETFLAPIN. OBJ. 

If only the JETFLAP. FOR and JETFLAPIN. FOR files exist, you must compile the 
programs by typing. 

FOR JETFLAP [Return] , and if necessary, 

FOR JETFLAPIN [Return] 

The next step is to link the programs by entering, 

LINK JETFLAP [Return] , and again if necessary, 

LINK JETFLAPIN [Return] 

The files JETFLAP.EXE, JETFLAP. OBJ., JETFLAPIN.EXE and JETFLAPIN. OBJ 
will now exist and you will be able to run the programs. 
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Running the Program 
To run the program, type 

JETFLAPIN [Return] 

The program will start and the screen will display the header for the interactive program. 
Using one of the sample data files for the correct values and this appendix to assist you 
with the terminology, answer each question presented. As you proceed through the 
JETFLAPIN program, opportunities to review and change input data will be presented. 
Should it become necessary to change your input data after completing the JETFLAPIN 
program, you can simply edit the created data file using the VAX EDT editor. 

After the JETFLAPIN input program has been run to completion, the file will you cre- 
ated will exist on your directory with the file extension .DAT. This file should be re- 
viewed and compared with the sample file used as a reference. If everything is in order, 
you should run your data file through the JETFLAP wing analysis program. 

The JETFLAP wing analysis program will ask you for the file name of the input data 
file. It is not necessary to enter the file extension .DAT, but you may do so without any 
ill effects. The program then asks if you wish to have the output sent to the screen or 
to a file. If you send the data to a file, the program runs faster and you will have the 
opportunity to review and print out the data. Sending the data to the screen is a quick 
way to see if the program is executing properly, but there is no permanent record of the 
run. At this time, the program is not able to print to both the screen and a file. The 
program is finished when the DCL (S) prompt returns to the screen. 

Several sample input data files, the results of those files after being run through 
JETFLAP and the listings for the JETFLAP and JETFLAPIN programs are on the 
following pages. 
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JETFLAP INPUT DATA FILE VOYTEST.DAT 



THIS IS A TEST OF THE INPUT PROGRAM JT77IN USING VOYAGER DATA 



59040. 0000 


1332. 0000 


0. 0000 


13. 5000 


0. 0000 






16 2 0 0 1 


10 0 












0. 998498 


0. 989489 


0. 959459 


0. 891892 


0. 792793 


0. 684685 


0. 576577 


0. 400901 


0. 373874 


0. 355856 


0. 346847 


0. 324324 


0. 261261 


0. 162162 


11111 


11111 


11111 


1 








/ 

0. 000000 


0. 074100 


0. 222200 


0. 370400 


0. 592600 


0. 740700 


0. 888900 


0. 998498 


13. 000000 


36. 099998 










0. 989489 


11. 900000 


36. 400002 










0. 959459 


11. 200000 


37. 200001 










0. 891892 


10. 000000 


39. 099998 










0. 792793 


8. 300000 


41. 900002 










0. 684685 


6. 300000 


44. 900002 










0. 576577 


4. 500000 


47. 900002 










0. 468468 


2. 300000 


51. 000000 










0. 400901 


0. 800000 


52. 599998 










0. 373874 


0. 400000 


53. 400002 










0. 355856 


0. 100000 


53. 799999 










0. 346847 


0. 000000 


54. 000000 










0. 324324 


0. 000000 


54. 000000 










0. 261261 


0. 000000 


54. 000000 










0. 162162 


0. 000000 


54. 000000 










0. 054054 
9 

0 0 0 2 0 


0. 000000 


54. 000000 










11111 


11111 


11111 


1 








-12. 355000 


-9. 560000 


-4. 899000 


0. 764000 


5. 042000 


7. 969000 


5. 412000 



9 

9 



0. 468468 
0. 054054 



S7 



ORIGINAL JETFLAP INPUT DATA FILE YOYAGR.DAT (S. M. WHITE) 



VOYAGER WING FLAT PLATE AND CAMBERED CASES; 16X7 = 112 ELEMENTS 



59040. 0 


1332. 0 


0. 0 


13. 5 








1601000001010000 












. 998498 


. 989489 


. 959459 


. 891892 


. 792793 


. 684685 


. 576577 


. 400901 


. 373874 


. 355856 


. 346847 


. 324324 


. 261261 


. 162162 


01010101010101010101010101010101 








07 














0. 0 


. 0741 


. 2222 


. 3704 


. 5926 


. 7407 


. 8889 


. 998498 


13. 0 


36. 1 










. 989489 


11. 9 


36. 4 










. 959459 


11. 2 


37. 2 










. 891892 


10. 0 


39. 1 










. 792793 


8. 3 


41. 9 










. 684685 


6. 3 


44. 9 










. 576577 


4. 5 


47. 9 










. 468468 


2. 3 


51. 0 










. 400901 


0. 8 


52. 6 










. 373874 


0. 4 


53. 4 










. 355856 


0. 1 


53. 8 










. 346847 


0. 0 


54. 0 










. 324324 


0. 0 


54. 0 










. 261261 


0. 0 


54. 0 










. 162162 


0. 0 


54. 0 










. 054054 


0. 0 


54. 0 











9 

00000005 

01010101010101010101010101010101 

-12.355 -9.560 -4.899 0.764 5.042 7.969 5.412 

9 



. 468468 
. 054054 



SS 



PROGRAM OUTPUT DATA FOR VOYTEST.DAT 



EVD JET - WING COMPUTER PROGRAM 



VOYAGER WING FLAT PLATE AND CAM8ERED CASES; 16X7 = 112 ELEMENTS 



AREA 

SPAN 

CREF 

XMC 

CMAC 

ARATIO 

XCG 



USED 

0 .123106 
2. 000000 
0 .069765 
0 . 020270 
0.069765 
30 . 051006 
0.000000 



NROWS = 16 



NCASES 
ISYMM = 
IPRINT = 
JETFLG = 
IGTYPE = 
I HINGE = 



INPUT 

59040.000000 

1332.000000 

0.000000 

13.500000 

46.463470 

30.051224 

0.000000 

16 

1 

0 

0 

1 

1 

0 



NUMEER OF WING ELEMENTS = 112 
NUMBER OF JET ELEMENTS = 0 

TOTAL NUMBER OF ELEMENTS = 112 



ELEMENT GEOMETRY DATA AND FUNDAMENTAL CASE DATA FOR FUNDAMENTAL CASE 1 



*** SECTION 1 
WING ELEMENTS 



V = 0.998498 DELTA = 0.001502 



XLEAD = 0.019520 XTRAIL 

= 0.000000 THETA S 



0.054204 

0.000000 



XE 


0.000000 


0.074100 


0. 222200 


C .370400 


0.5*2600 


0 . 740700 


0.888900 


x: 


C .019520 


0.022090 


0.027226 


0.0323&7 


0.040074 


0. 045210 


0 . 050351 


DEL 


0. O74IO0 


0. 148100 


0.148200 


0.222200 


C. 14S100 


0 .148200 


0.111100 


EPS 


1 .OCOOOO 


1 . OOCOOO 


1 . OOCCCO 


I . 000000 


1 . 000000 


1 .000000 


1.000000 


beta 


C.OO0O00 


0 . 000000 


0.000000 


0.000000 


0 . oooooo 


0. oooooo 


0 .oooooo 


TYPE 


20 


10 


10 


10 


10 


10 


10 


THIS ROW 
•ION 2 


HAS NO JET 
* Y - 0.' 


989489 DELTA 


= 0.007507 


XLEAD = 


0.017868 


XTRAIL = 


0.054655 1 



WING ELEMENTS 

X8 
XI 
DEL 
EPS 
BETA 
TYPE 
THIS ROW 
t*** SECTION 3 
WING ELEMENTS 



*** SECTION 
WING ELEMENTS 



NW - 7 

0.000000 
0.017868 
0.074100 
1 . 0OO000 
0.000000 
20 

HAS NO JET 

Y = 0.°5 Q 45 



TWIST = 0. 000000 



0. 074100 
0.020594 
0. 14810C 
1.000000 
0.000000 
10 



0.222200 
0.026042 
0. 14S200 
1 . 002000 
0.000000 
10 



HL = C.OOOGOO THETA S = 0. 

0.370400 0.592600 0.740700 

0.031404 0.039668 0.045116 

0. 222200 0.148100 0.148200 

1. COCOOO 1.000000 1.000000 

0 . O 00000 0.000000 0.000000 

10 10 10 



NW - 



DELTA = 0.022523 XLEAD = 0.016817 XTRAIL = 



TWIST = 0.000000 



HL = 0.000000 



THETA S = 0 



,000000 
0. 888900 
0.050568 
0.111100 
1 . 0000C0 
0.000000 
10 

0.055856 
, 000000 



CHORD = 0.034685 TANLE = 0.183333 



CHORD = 0.036787 TANLE = 0.183333 



XB 


0. OOOOOO 


0. 074100 


C. 222200 


0. 370400 


0.5«2600 


0.740700 


0 . B88 Q 00 


XI 


C. 016817 


0.019710 


0.0254*1 


0.031277 


0 . 03 Q 95 1 


0.045733 


C. 051519 


DEL 


0.074100 


0.148100 


0.148200 


0.222200 


0.148100 


0.148200 


0.111100 


EPS 


1 .OOOOOO 


1 .OOCOOO 


1 .OOOOOO 


1.000000 


1.000000 


1 .000000 


1 .OOOOOO 


BETA 


0 . oooooo 


0. O0OOOO 


0.000000 


0. OOOOOO 


0. OOOOOO 


0.000000 


0.000000 


TYPE 


20 


10 


10 


10 


10 


10 


10 


> ROW 

4 ** 


HAS NO JET 

* Y = 0.891892 DELTA 


= 0.045 


044 XLEAD = 


0.015015 


XTRAIL = 


0.058709 1 



TWIST = 0.000000 



HL = 0.O00000 



THETA S = 0.000000 





XS 


0. OOOOOO 


0. 07410C 


0.222200 


0. 370400 


0.592600 


0. 740700 




0.888900 




XI 


0. 015015 


0.018253 


0.024724 


0.0311*9 


0. 040908 


0.047379 




0.053854 




DEL 


0.074100 


0. 148100 


0 .148200 


0.222200 


0. 148100 


0. 148200 




0.111100 




EPS 


1 . OCOOOO 


1 .000000 


1.000000 


1 . OOOOOO 


1 . OOOOOO 


1 . OOOOOO 




1 .COOOO0 




BETA 


0.000000 


0. OOOOOO 


0.000000 


0.000000 


0. OOOOCO 


0.000000 




0. OOCOOO 




TYPE 


2 C 


10 


10 


10 


10 


10 




10 




THIS ROW 


HAS NO JET 
















M t> « 


SECTION 5 


" Y = 0.7° 


2793 DELTA 


= 0.054055 XLEAD = 


0.012462 


XTRAIL = 


0, 


.062913 ( 


WING 


ELEMENTS 


NW = 7 


TWIST = 0. 


OOOOOO 


HL = 0. OOOOOO THETA 3=0. 


.oooooo 




XB 


0. OOOOOO 


0.074100 


0.222200 


0.370400 


0.592600 


0.740700 




0 . 888 9 C 0 




XI 


0.012462 


0.016201 


0.023673 


0.031149 


0.042359 


O.04Q831 




0.C57308 




DEL 


0.0‘4l00 


0. 148100 


0. 1482C0 


0.222200 


0.148100 


0.148200 




0. 11 1 ICO 




EPS 


1 . OCOOOO 


1 . ccoooo 


1 .000000 


1 .OOOCOO 


1 .OOOOCO 


1.000000 




1 .OOCOOO 




BETA 


0.000000 


0 . oooooo 


o. oooooo 


0 .OOCOOO 


0. OOOOO0 


O.GO000O 




0 . OOCOOO 




Type 


20 


10 


10 


10 


10 


10 




10 




THIS ROW 


HAS NO JET 


















SECTION 6 *.*• 


* Y = 0.684685 DE^TA 


= 0.05405 


,3 XLEAD = 


0.009450 


XTRAIL = 


0 


.067417 ( 


WING 


ELEMENTS 


NW = 7 


TWIST = 0. 


OOCOOO 


HL = C. OOOOOO THETA s = 0. 


•OOOOCO 




X3 


0.000000 


0 . 0/4 1 CO 


C. 222200 


0.370400 


0.592600 


0.740700 




0.888*00 




XI 


0.009459 


0.013754 


0.022338 


0.030927 


0.043805 


0.052389 




0.060978 




DEL 


C. 074100 


0.148100 


0. 1482C0 


0.222200 


0.148100 


0. 143200 




0.111100 




EPS 


1 .000000 


1 .OCOOOO 


1 .000000 


1 . OOOOOO 


1 .000000 


1.000000 




1 . OOOOOO 




BETA 


0. OOOOOO 


0.000000 


0. OOOOOO 


0. OOOOOO 


0.000000 


0. OO00O0 




0 . OOOOOO 




TYPE 


20 


10 


10 


10 


10 


10 




10 




THIS ROW 


HAS NO JET 
















HKX 


SECTION 7 ** 


'* Y = 0.576577 DELTA 


= 0.054055 XLEAD = 


0.006757 


XTRAIL = 


0 


.071922 1 


WING 


ELEMENTS 


NW = 7 


TWIST = 0. 


OOOOOO 


HL = 0, OOOOOO THETA S = 0. 


,000000 




X8 


0.000000 


0.074100 


0.222200 


0 .370400 


0.592600 


0.740700 




0. 888900 




XI 


0.006757 


0.011585 


0.021236 


0.030894 


0.045374 


0.055025 




0 . 064682 




DEL 


0.074100 


0. 148100 


0. 148200 


0.222200 


0.148100 


0. 148200 




0.111100 




EPS 


1.000000 


1 .000000 


1 .OOOOOO 


1 . OOOOOO 


1.000000 


1 .000000 




1.000000 




8ETA 


0.000000 


0. OOOOOO 


0 .OOOO00 


0. OOOOOO 


0. OOOOOO 


0. OOOOOO 




0.000000 




TYPE 


20 


10 


10 


10 


10 


10 




10 




THIS ROW 


HAS NO JET 
















MM M 


SECTION 8 


' * Y = 0.468468 DELTA 


= 0.054054 XLEAD = 


0.003453 


XTRAIL = 


0, 


.076577 1 


WING 


ELEMENTS 


NW * 7 


TWIST = 0. 


OOOOOO 


HL = 0.000000 THETA S = 0. 


.oooooo 




X8 


0. OOOOOO 


0.074100 


0.222200 


0. 370400 


0.592600 


0.740700 




0.888900 




XI 


0.003453 


0.008872 


0.019701 


0.030538 


0.046786 


0.057616 




0.068452 




DEL 


0.074100 


0.148100 


0 .148200 


0.222200 


0.148100 


C. 148200 




0.111100 




EPS 


1 .000000 


1 .000000 


1 . OOOOOO 


1 .000000 


I .000000 


I .000000 




1 . OOOOOO 




BETA 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 




0.000000 




TYRE 


20 


10 


10 


10 


10 


10 




10 




THIS ROW 


HAS NO JET 

















SECTION 
WING ELEMENTS 



*•*■** Y * 0.400901 DELTA = 0.013513 XLEAD 

TWIST = 0.000000 



0.001201 XTRAIL * 



0.078979 

,000000 



CHORD * 0.039039 TANLE * 0.0266b7 



0.043694 TANLE = 0.026212 



CHORD = 0.050450 TANLE = 0.025758 



CHORD = 0.057958 TANLE = 0.025000 



CHORD = 0.065165 TANLE * 0.027778 



CHORD = 0.073123 TANLE = 0.031944 



CHORD * 0.077778 TANLE = 0.027778 



XB 


0.000000 


0.074100 


0.222200 


0.370400 


0.592600 


0. 740700 


0 . 888 0 00 


XI 


0.001201 


0.006965 


0.018483 


0.030010 


0.047292 


0.058811 


0.070338 


DEL 


0.074100 


0.148100 


0.148200 


0.222200 


0 . 148100 


0.148200 


0.111100 


E D S 


1 . COOOOO 


1.000000 


1,000000 


1 .CCCOO0 


1.000000 


1 .000000 


1 .CCOOOO 


EETA 


0. OOOO00 


0.000000 


0.000000 


0. OOOOO0 


0. OOOOCO 


0.000000 


0.000000 


TYPE 


20 


10 


10 


10 


10 


10 


10 



89 



THIS ROW HAS NO JET 

"«"• SECTION 10 *** v = 0.373874 DELTA = 0.013514 XLEAD = 0.000601 XTPAlL = 0.080180 CHORD = 

WING ELEMENTS NW = 7 TWIST = O.OCOOOO Hl_ = C.OOOOOC THETA 3 = O.OCOOOO 

X8 O.OOOOCO 0.074100 0.222200 0.370400 0.592600 0.740700 0.888°00 



XI 


0 .000601 


0.006497 


0.018282 


0.050077 


0 . 04775° 


0.059545 


0.071539 


DEL 


C .074100 


0.148100 


0.148200 


0.222200 


0 .148100 


0. 149200 


0 . 11110 c 


EPS 


1.000000 


1 . OCCOCO 


1 .000000 


1 . oocooo 


1 .cooooo 


1.000000 


1.000000 


8ETA 


0.000000 


0.000000 


0.000000 


O.OOOOCO 


0.000000 


0.000000 


0.000000 


TY & E 


20 


10 


10 


10 


10 


10 


10 


THIS ROW 


HAS NO JET 














SECTION 11 ** 


- Y = 0.5 


55856 DELTA 


= 0.004504 XLEAD = 


0.000150 


XTRAIL = 


0.C8C781 CHORD 


WING ELEMENTS 


NW s 7 


TWIST = 0. 


000000 


HL s 0.000000 THETA s = 0. 


COOOOO 


XB 


0.000000 


0. 074100 


0.222200 


0.370400 


0.592600 


0.740700 


0.888900 


XI 


C .000150 


0.006125 


0.018066 


0.020016 


0.047932 


0.059873 


0.071823 


DEL 


0 .074100 


0 . 148100 


0. 1482C0 


0.222200 


0. 148100 


0. 149200 


O.llilOO 


EPS 


1 . 000000 


1.000000 


1 .000000 


1 .000000 


1.000000 


1.000000 


1.000000 


BETA 


0 .000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


TYPE 


20 


10 


10 


10 


10 


10 


10 


THIS ROW 


HAS NC JET 














*** SECTION 12 «« 


* Y = 0.246847 DELTA 


* 0.004505 XLEAD = 


0.000000 


XTRAIL * 


0.081081 CHORD 


WING ELEMENTS 


NW = 7 


TWIST = 0. 


000000 


HL = O.OOOOCO THETA S * 0. 


000000 


XB 


0.000000 


0.074100 


0.222200 


0.370400 


0.592600 


0.740700 


0.888900 


XI 


C. OCOCOO 


0.006008 


0.018016 


0.020032 


0.048049 


0.06C057 


0.072073 


DEL 


0 .074100 


0 . 148100 


0 . 148200 


0.222200 


0.148100 


0. 148200 


0.111100 


EPS 


1.000000 


1.000000 


1.000000 


1 . OOOCOO 


1 .000000 


1.000000 


1 . OOCOOO 


BE* A 


0.000000 


0 .000000 


c. 000000 


c. 000000 


0.000000 


0.000000 


0. OOOCOO 


TYPE 


20 


10 


10 


10 


10 


10 


10 


THIS ROW 


HAS NO JET 














SECTION 12 •* 


■» Y = 0.3 


24524 DELTA 


= 0.018018 XLEAD = 


0.000000 


XTRAIL = 


0.081081 CHORD 


WING ELEMENTS 


NW = 7 


TWIST = 0. 


000000 


HL = 0.000000 THETA S = 0. 


ooocoo 


X8 


0.000000 


C. 074100 


0.222200 


0.370400 


0.592600 


0.740700 


0.888900 


XI 


0.000000 


0.006008 


0.018016 


0.020022 


0.048049 


0. 060057 


0.072073 


DEL 


0.074100 


0.148100 


0.148200 


0.222200 


0.148100 


0.148200 


0.111100 


EPS 


1.000000 


I .000000 


1.000000 


1.000000 


I .000000 


1 . 000000 


1 .000000 


eeta 


0.000000 


C.OOOOOC 


0.000000 


C. 000000 


0. COOOOO 


O.OOOOCO 


0.000000 


TYPE 


20 


10 


10 


10 


10 


10 


10 


THIS ROW 


HAS NO JET 














»*•*■ SECTION 1 A ** 


'« Y S 0.2 


61261 DELTA 


* 0.045045 XLEAD > 


0.000000 


XTRAIL * 


0.081081 CHORD 


WING ELEMENTS 


NW = 7 


TWIST = 0. 


000000 


HL = 0.000000 THETA S = 0. 


OOOCOO 


XB 


0.000000 


C. 074100 


0.222200 


0.370400 


0 .5°2600 


0.740700 


0 .888 °00 


XI 


O.OOOOCO 


O.OO 0 OC 8 


0.018C16 


0.020022 


0. 048049 


0.060057 


0.072C73 


DEL 


0.074100 


0.148100 


C. 149200 


0 . 2222 00 


0 .148100 


0.148200 


0.111100 


EPS 


1 .000000 


I . 000000 


1 . ooocoo 


1 .OOOCOO 


1 .cooooo 


1.000000 


1.000000 


BETA 


c. cooooo 


0.000000 


0 . cooooo 


C. 000000 


0 . cooooo 


C .000000 


O.OOOOCO 


TVFE 


20 


10 


10 


10 


10 


10 


10 


THIS ROW 


HAS NO JET 














«"• SECTION 15 ** 


* Y = 0. 162162 DELTA 


= 0.054054 XLEAD = 


0.000000 


XTRAIL = 


0.081081 CHORD 


WING ELEMENTS 


NW = 7 


TWIST = 0. 


000000 


HL = 0.000000 THETA s = 0. 


.000000 


XB 


0.000000 


0 .074 100 


0.222200 


0.370400 


0.592600 


0.740700 


0.888900 


XI 


0.000000 


0.006008 


0.018016 


0.C3C032 


0.048049 


0.060057 


0.072073 


DEL 


0.C74I00 


0.148100 


0.148200 


0.222200 


0. 148100 


0 .148200 


0.111100 


EPS 


1 .000000 


1 .000000 


1.000000 


1.000000 


1 .000000 


1.000000 


1.000000 


BETA 


0.000000 


0.000000 


0.000000 


c. 000000 


0.000000 


0.000000 


0.000000 


TYPE 


20 


10 


10 


10 


10 


10 


10 


THIS ROW 


HAS NO vET 














*** SECTION U »- 


- Y = 0.054054 DELTA 


= 0.054054 XLEAD = 


0.000000 


XTRAIL - 


0.081081 CHORD 


WING ELEMENTS 


NW = 7 


TWIST = 0. 


000000 


HL = O.OOOOCO THETA S = 0, 


.ooocoo 


X8 


0.000000 


0.074100 


0.222200 


0.370400 


0.592600 


0.740700 


0 .888900 


XI 


0.000000 


0 .006C03 


0.018016 


0.030032 


0.048049 


0.C60C57 


0.072073 


DEL 


0.074100 


0.148100 


0.148200 


0.222200 


0.148100 


0.148200 


c . 111100 


EPS 


1.000000 


I .000000 


1 .000000 


1 .000000 


1 .000000 


1.000000 


1.000000 


EETA 


O.OCOOOO 


0.000000 


0.000000 


0.000000 


0.000000 


c .000000 


0.000000 


TYPE 


20 


10 


10 


10 


10 


10 


10 


THIS ROW 


HAS NO JET 















- SECTIONAL jet 


BLOWING COEFFICIENTS - 


RCW 


CMU 


1 


0.000000 




0.000000 


2 


0.000000 


4 


O.OOOOCO 


5 


0.000000 


6 


0.000000 


7 


0.000000 


8 


0 .ooocoo 


Q 


0.000000 


10 


0 . 000000 


1 1 


0.000000 


12 


0.000000 


13 


O.OCOOOO 


14 


0.000000 


15 


0.000000 


16 


o.ooocco 



0.079580 TANLE * 0.025611 



0.080651 TANLE = 0.025000 



0.081081 TANLE = 0.000000 



0.081081 TANLE = 0.000000 



0.081081 TANLE * 0.000000 



0.081081 TANLE = 0.000000 



0.08108! TANLE = 0.000000 



•» CHCRDWISE LOADING FO» ALL FUNDAMENTAL CASES “ 











SECTION 


1 Y = 


0 . °98498 


CHORD = 


0.034665 












1 


XB 


CASE 1 


CASE 2 


CASE 3 


CASE 4 


CASE 5 


CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


WING 




1 


O.OOOOCO 


0.206017 


0.000000 


0.000000 


O.OOOOCO 


0.000000 


O.OOOOCO 


0.000000 


0.000000 


0.000000 


0.000000 




2 


0.074100 


0 . 082606 


O.OOOOOC 


0.000000 


0.000000 


0.000000 


0.000000 


0.030000 


0.000000 


0. ooocoo 


0.000000 




3 


0.222200 


0.025349 


0 .OOOCOO 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 




4 


0.270400 


0.025035 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0. ooocoo 


0.000000 


0. ooocoo 




5 


0 . 592600 


0-015409 


0.000000 


0.000000 


0. cooooo 


0.000000 


O.OOOOCO 


O.OCOOOO 


0.000000 


0.000000 


o.ooocco 




6 


0.740700 


0.011045 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0. oocooo 


0.000000 


0.000000 


0. ooocoo 




7 

1 

3 

4 

5 


0.888900 

0.014820 

0.029640 

0.044460 

0.059280 

0.074100 


0.006752 

0.296163 
0 . 195265 
0. 144467 
0. 10°765 
0 . 082606 


0.000000 0.000000 0.000000 0.000000 

DETAILED LEADING EDGE LOADING 

» CHORDWISE LOADING FCR ALL FUNDAMENTAL 
SECTION 2 Y = 0.989489 CHORD = 


0.000000 

CASES « 
0.036787 


0.000000 


O.OCOOOO 


0.000000 


0. ooocoo 




I 


XB 


CASE 1 


CASE 2 


CASE 3 


CASE 4 


CASE 5 


CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


WING 




8 


0.000000 


0.257194 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 




9 


0.074100 


0.150969 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


O.OOOOCO 




10 


0.222200 


0.074147 


0.000000 


O.OOOOOC 


0.000000 


0.000000 


O.OOOOCO 


0.000000 


0.000000 


0.000000 


O.OCOOOO 




1 1 


0.370400 


0 . 04 °4 6 7 


O.OCOOOO 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0. oocooo 


0.000000 


0 .oocooo 




12 


0.592600 


0 . C2 Q 455 


o.ooocco 


0.000000 


0.000000 


0.000000 


0.000000 


0. ooocoo 


0.000000 


0.000000 


O.OCOOOO 




12 


0.740700 


0.020609 


O.OOOOCO 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


O.OOOOOC 




14 


0.888900 


0.011980 


O.OCOOOO 


O.OOOOOC 

DETAILED 


0.000000 0. cooooo 

LEADING EDGE LOADING 


0.000000 


0.000000 


0.000000 


0.000000 


O.OOOOOC 



90 



WING 



WING 



WING 



WING 



WING 



WING 



1 0.014820 0.27°202 

2 0.029640 0.262908 

3 0.044A60 0 .20906 1 

6 0.059280 0.175306 

5 0.074100 0.150969 



* CHORDWICE LOADING FOR ALL FUNDAMENTAL CASES » 



I 


XB 


CASE 1 


SECTION 
CASE 2 


3 V = 

CASE 2 


0.959459 
CASE 4 


CHORD = 
CASE 5 


0 .034029 
CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


15 


0.000000 


0.220581 


C . 000000 


0.000000 


0 . 000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


o. ooocoo 


16 


0.074100 


0.195126 


o.ocooco 


o.ocooco 


0.000000 


0.000030 


C .000000 


0 . ooooco 


0.000000 


0.000000 


0 . ooooco 


17 


0.222200 


0.102889 


0.000300 


o.oocooo 


0. ooooco 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


18 


0.370400 


0.072265 


0.000000 


0 .cccoco 


0.000000 


0.030000 


0.000000 


o.coocco 


0 .000000 


0.000000 


0 . ooooco 


19 


0.592600 


0 . 04 A 0 3 7 


C .000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


o.oocooo 


0.000000 


o.oocooo 


20 


0.740700 


0. 031 647 


0.000000 


0. 000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 .000000 


o.oocooo 


0.000000 


21 


0 .888900 


0.018411 


3.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


1 

3 

4 

5 


0.014820 

0.029640 

0.044460 

0.059280 

0.074100 


0.474177 

0.330488 

0.264761 

0.224079 

0.195126 




DETAILED 


LEADING EDGE 


: LOADING 













<* CHORDWISE LOADING FOR ALL FUNDAMENTAL CASES * 



I 


XB 


CASE 1 


SECTION 
CASE 2 


4 Y = 

CASE 3 


0 .891892 
CASE 4 


CHORD = 
CASE 5 


0.043694 
CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


22 


0.000000 


0.251175 


0.000000 


0 . 000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


23 


0.074100 


0.215023 


0.000000 


0 . OOOOCO 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


24 


0.222200 


0.114796 


O.OOCOOO 


0.000000 


O.OOCOOO 


0.000000 


0.000000 


0.000000 


0.000000 


o.ocoooc 


0.000030 


25 


0.370400 


0.081521 


0 .COOOOO 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


26 


0.592600 


0.051545 


0.000300 


0.000000 


0.000000 


0.000000 


0.000000 


0 .000000 


0.000000 


0.000000 


0.000000 


27 


0.740700 


0 . 0 2 &5 74 


0.000000 


C. 000000 


0.000000 


0.000000 


0. 000000 


0.030000 


0.000000 


0.000000 


0 . 000000 


28 


0 .888903 


0.021471 


0. ooooco 


0 .000000 


0. 000000 


o. ooocoo 


0.000000 


0.000000 


0.000000 


0.000000 


0. ooooco 


I 

4 

5 


0.014820 
0 . 02°b4 0 
0.044460 
0 . C5°280 
0.074100 


0.519682 
0.362523 
0.290787 
0 .24 b 475 
0.215023 




DETAILED 


LEADING EDGE 


: LOADING 













* CHORDWISE LOADING FOR ALL FUNDAMENTAL CASES " 






I 


XB 


CASE 1 


SECTION 
CASE 2 


5 v = 

CASE 2 


0 . 792793 
CASE 4 


CHORD = 
CASE 5 


0.050450 
CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


29 


0. COOOOO 


0.359757 


0.000000 


0 . ooooco 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


30 


0.074100 


0.220486 


0.000000 


0 .000000 


0.000000 


0.000000 


0. COOOOO 


0.000000 


0.000000 


0.000000 


o.oocooo 


31 


0.222200 


0. 1 1 7 8 Q 8 


0 . ooocoo 


0 .000000 


0.003000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 . 000000 


32 


0.370400 


0.0838S7 


0.000000 


0.000000 


0.000000 


0 .000000 


o.ocooco 


0.000000 


0 . ooooco 


O.OOCOOO 


0 .ooocoo 


3 j 


0.592600 


0.053168 


0.000000 


o.oocooo 


0 .COOOOO 


0.000000 


0.000000 


0.000000 


0.000000 


0 .000000 


0.000000 


24 


0 .74C7C0 


0.027785 


o.oocooo 


o .ooocoo 


0 .000000 


0.000000 


0.000000 


0.000000 


0 . ooooco 


0.000000 


0.000000 


25 


0 .888900 


0.022221 


0.000000 


0.000000 


C .000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


I 

4 

5 


0.014820 
0.029640 
0 . 0444 6 C 
0.059283 
0.07410C 


0.532423 
0.371476 
0.298018 
0. 2526^5 
0.220486 




DETAILED 


LEADING EDGE 


: LOADING 













h CHORDWISE LOADING FOR ALL FUNDAMENTAL CASES * 









SECTION 


6 Y = 


0 . b84 1>85 


CHCRD = 


0.057958 










1 


XB 


CASE 1 


CASE 2 


CASE 3 


CASE 4 


CASE 5 


CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


26 


0.000000 


0.360147 


0. OOOCOO 


0.000000 


o.oocooo 


0 . ooocoo 


0.000000 


0.000000 


0.000000 


o.oocooo 


0.000000 


37 


0.074100 


0.223753 


0 . oooooo 


0 . ooocoo 


0.000000 


0 .oooooo 


0.000000 


0 . oooooo 


0.000000 


0.000000 


0 . oooooo 


28 


0.222200 


0.118377 


o.oocooo 


o .ooooco 


0.000000 


o. ooooco 


0.000000 


0.000000 


0.000000 


0 . oooooo 


0 . oooooo 


2 9 


0 .370400 


0.084037 


0 .COOOOO 


c. oooooo 


0.000300 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 .oooooo 


40 


0.592600 


0 .05326 0 


o.ocooco 


o.oocooo 


0 . ooocoo 


0 . ooooco 


0.000000 


0 . ooooco 


0.000000 


0.000000 


c. ooooco 


41 


0.740700 


0.037SS2 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 . ooooco 


o.oocooo 


42 


0 .888900 


0 . 022260 


0 . ooocoo 


0.000030 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


o. ooocoo 










DETAILED 


LEADING edge loading 












1 


0.014820 


0.532C05 




















2 


0.029640 


0.27I8S9 




















3 


0.044460 


0.298258 




















4 


0 .05°280 


0 . 252 ? o 1 




















5 


0.074100 


0.220753 


























* CHORDWISE LOADING FOR ALL 


FUNDAMENTAL 


CASES •» 
















SECTION 


7 Y = 


0.576577 


CHORD = 


0.065165 










I 


XB 


CASE 1 


CASE 2 


CASE 3 


CASE 4 


CASE 5 


CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


43 


0.000000 


0.359147 


o. ooooco 


0.000000 


0.000000 


0. COOOOO 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


44 


0.074100 


0.220135 


0.000000 


o.oocooo 


0.000003 


0. OOOOOO 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


45 


0.222230 


0.117705 


0.000000 


0 .oooooo 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 . oooooo 


46 


0.370400 


C . 08 2 7 6 I 


0. COOOOO 


o.oocooo 


o.oocooo 


0.000000 


0.000000 


0. COOOOO 


0 .oooooo 


0.000000 


0.000000 


47 


0 .5°2600 


0.055107 


0.000000 


0 .COOOOO 


0.000000 


0. COOOOO 


0.000000 


0.000000 


0.000000 


o .oooooo 


c .oooooo 


48 


0.740700 


0.027722 


0.000000 


0. COOOOO 


0. COOOOO 


0.000000 


0.000000 


0.000000 


0. COOOOO 


0.000000 


0.000000 


49 


0 .888900 


0.022192 


0.000000 


0 . ooooco 


c. oooooo 


0.000000 


0.000000 


0.000000 


o.oocooo 


0.000000 


0.000000 










detailed 


leading edge loading 












1 


0.014820 


0.531524 




















-> 


0.029640 


0.270855 




















3 


0.044A60 


0.297526 




















4 


0.059280 


0 .252255 




















5 


0.074100 


0.220135 





















* CHORDWISE LOADING FCR ALL FUNDAMENTAL CASES * 






I 


XB 


CASE 1 


SECTION 
CASE 2 


8 Y = 

CASE 3 


0.468468 
CASE 4 


CHORD = 
CASE 5 


0.073123 
CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


50 


0.000000 


0.253019 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


o.oocooo 


51 


0.074100 


0.216279 


0. OOOCOO 


c. OOOOOO 


0. OOOCOO 


0 . oooooo 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


52 


0.222200 


0.115580 


0.000000 


0.000300 


0. COOOOO 


o.oocooo 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


53 


0.370400 


0.082200 


0. OOOCOO 


0.000030 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 . oooooo 


0 . ooocoo 


54 


0.592600 


0.052032 


0.000000 


o.oocooo 


c. oooooo 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


o.oocooo 


55 


0.740700 


0.036978 


0.000000 


0.000000 


0.000000 


0 . ooocoo 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


56 


0.888930 


0.021711 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


1 

2 

4 

5 


0.014820 
0 . 02° 64 0 
0.044460 
0.059280 
0.074100 


0.522426 
0.364487 
0 . 2922 Q 0 
0.247871 
0.21 e2 78 




detailed 


LEADING edge 


LOADING 













91 



WING 



WING 



WING 



WING 



WING 



WING 









* CHCRDW1SE LOADING FCR ALL 


FUNDAMENTAL 


CASES - 
















SECTION 


9 Y = 


O.4O0 Q Cl 


CHORD = 


0.077778 










I 


XB 


CASE 1 


CASE 2 


CASE 3 


CASE 4 


CASE 5 


CASE b 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


57 


0.000000 


0.343243 


O.OOCCCO 


0.000000 


0. OCOCOO 


0.000000 


0.000000 


0.000000 


0. oooooo 


0.000000 


O.OOCOOC 


58 


0.074100 


0.210506 


0.000000 


c. 000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


O.OOCOCO 


5? 


0.222200 


0. 113318 


O.OOCOCO 


c.coccoo 


0 . ooocoo 


0. COOOOO 


o.occooc 


o.ooccoo 


0.000000 


0. ocooco 


0.000000 


60 


0.370400 


0 . 08 0°2 3 


0.000000 


0.000000 


o.ccoooo 


0.000000 


0.000000 


c. oooooo 


0.030000 


0. cooooo 


c. ooocoo 


o 1 


C . 5 °26 00 


0.051287 


0.000000 


o.ooccoo 


o.oocooo 


0 .ooooco 


o.ooocco 


0.000000 


0. ooocoo 


0.000000 


o.ccoooo 


62 


0.740700 


0.036404 


0.000000 


c.ocoooo 


c . cooooo 


0. ooocoo 


0. ooooco 


0. cooooo 


0.00000c 


0.000000 


0.000000 


b 3 


0 .888900 


C. 021314 


0.000000 


c.ccocoo 


0.000000 


O.OOCOCO 


o.oocooo 


0.000000 


o.oocooo 


0.000000 


c.ocoooo 










DETAILED 


LEADING EDGE LOADING 












1 


0.014820 


0.508011 




















2 


0 . 02 0 64 0 


0.354480 




















z 


0.044460 


0.284422 




















4 


0. 059280 


0.241180 




















5 


0.074100 


0 .210506 


























» CHORDW1SE LOADING FOR ALL 


FUNDAMENTAL 


CASES - 
















SECTION 


1C Y s 


0.373874 


CHORD = 


0.079580 










I 


X8 


CASE 1 


CASE 2 


CASE 3 


CASE 4 


Case 5 


CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


64 


0.000000 


0 . 345 1 b 6 


0.000000 


0.000000 


O.OOCOOO 


0. 000000 


0.000000 


0 .ooooco 


0.000000 


0.000000 


0.000000 


65 


0.074100 


0.211234 


0.000000 


0. cocooo 


0. COOOOO 


0. OOOOCO 


0.000000 


0.000000 


0.000000 


0. oooooo 


0. ooooco 


66 


0.222200 


0.112873 


0.000000 


0.000000 


O.OOCOOO 


0.000000 


0.000000 


0.000000 


0. ooooco 


0.000000 


0.000000 


67 


0. 370400 


0.080337 


0 . 000000 


0.000000 


0. OOOOCO 


0.000000 


0. ooocoo 


0. oooooo 


0. oooooo 


0. ooooco 


0. ooooco 


68 


0 . 5 Q 26 00 


0.05CS69 


0.000000 


C. 000000 


0.000000 


0.000000 


0. cooooo 


O.OOCOOC 


0.000000 


0.000000 


0.000000 


69 


0.740700 


0 . 03 6 120 


0. ocooco 


0. COOCOO 


0. ooooco 


0.000000 


0.000000 


0.000000 


0.000000 


o.ooccoo 


0.000000 


70 


0 .888 Q 00 


0.021182 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0. oooooo 


0.000000 










DETAILED 


LEADING EDGE LOADING 












1 


0.014820 


0.510777 




















2 


0.029640 


0.356305 




















3 


0 . 0444 b 0 


0.2S5775 




















4 


0.059280 


0.242210 




















5 


0.074100 


0.211284 


























» CHORDwlSE LOADING FOR ALL 


FUNDAMENTAL 


CASES » 
















SECTION 


11 Y = 


0.355856 


CHORD = 


0.080631 










I 


XB 


CASE 1 


CASE 2 


CASE 3 


CASE 4 


CASE 5 


CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


71 


0.000000 


0.341790 


0.000000 


0.000000 


0. OOOCOO 


0. COOOOO 


0.000000 


0. cooooo 


c. oooooo 


0.000000 


0. cooooo 


72 


0.074100 


0.210332 


o.ooccoo 


0.000000 


0.000000 


0.000000 


0. COOOOO 


0 . ooooco 


0. ooooco 


o.oocooo 


o.ooocco 


73 


0.222200 


0 . 11327 6 


O.OOCGOO 


O.OOCOOC 


O.OOCOOO 


0.000000 


0.000000 


o.ooccoo 


o.ooccoo 


0.000000 


0. ooooco 


74 


0.3-0400 


0.080521 


0.000000 


0.000000 


0.000000 


0. OCOCOO 


0. ooocoo 


0.000000 


0. cooooo 


0. ooooco 


0.000000 


75 


0 . 5°2 dOO 


0.C50S93 


0.000000 


0.000000 


0.000000 


0.00000c 


0.000000 


O.OOCOCO 


0.000000 


0.000000 


0.000000 


76 


0.740700 


0.036C75 


0 . 000000 


0.000000 


0.000000 


0.000000 


0.000000 


0. ooocoo 


0. ooocoo 


0.000000 


0.000000 


77 


0.883900 


0 .021087 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


c. ooocoo 


0 . oooooo 










DETAILED 


LEADING EDGE LOADING 












1 


0.014820 


0 . 5 06 1 05 




















2 


0.02°o40 


0.353467 




















3 


0.0444o0 


0 .283°49 




















4 


0.059280 


0.241133 




















5 


0 . 074100 


C. 210832 


























- CHORDWISE LOADING FOR ALL 


FUNDAMENTAL 


CASES - 
















SECTION 


12 Y = 


0.346847 


CHORD = 


0.031081 










I 


XB 


CASE I 


CASE 2 


CASE 3 


CASE 4 


CASE 5 


CASE 6 


CASE 7 


CASE 8 


CASE « 


CASE 10 


78 


O.OOCOOC 


0.34300° 


0. 000000 


O.CCOCOC 


0.000000 


O.O00OO0 


0.000000 


0.000000 


o.oocooo 


0. cooooo 


0. OOOOOO 


7? 


0. 074100 


0.211159 


0. ooocoo 


0.000000 


0 .OOOOCO 


0.000000 


c .cooooo 


0. ooocoo 


o.ooccoo 


c . oooooo 


0.000000 


80 


0.222200 


0.113382 


0.000000 


0.000000 


0. OOOOCO 


0.000000 


0.000000 


0. ooocoo 


o.oocooo 


0.000000 


0. ooocoo 


81 


0.370400 


0.030637 


0. ooooco 


0.000000 


0. COOOOO 


o.oocooo 


0.000000 


o.oocooo 


O.OOCOCO 


c.ocoooo 


0.000000 


82 


0 . 5 Q 260 0 


0 . 05 0 °3 ° 


0.000000 


0.000000 


0.000000 


0. 000000 


0. ooooco 


0.000000 


0. OOOOOO 


0.000000 


o.oocooo 


83 


0.74C700 


0 . 03o 122 


0.000000 


0 .ooooco 


0.000000 


0. OCOCOO 


0. cooooo 


o.oocooo 


0. OCOCOO 


0. ooocoo 


o.ccoooo 


84 


0 . 8S8 q 00 


0. 021080 


0.000000 


0.000000 


0.000000 


0. OOOCOO 


0. oooooo 


o.ooocco 


0. oooooo 


o.oocooo 


0.000000 










DETAILED 


LEADING EDGE LOADING 












1 


0. 014S20 


0.507824 




















2 


0.029640 


0.354557 




















z 


0. 0444e0 


0.28470b 




















4 


0.059280 


0 . 2 4 1 c 5 3 




















5 


0.074100 


0.21115? 





















- CH0SDW1SE LOADING FOR ALL FUNDAMENTAL CASES - 



1 


X3 


CASE 1 


SECT I Cn 
CASE 2 


13 V = 

CAGE 3 


0.324324 
CASE 4 


CHOPD = 
CASE 5 


0 . 08 1 08 1 
CASE b 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


85 


o.ccoooo 


0.347787 


O.OOOCCO 


O.OOCOOO 


O.CCOCOC 


0. oooooo 


0.000000 


0 .oooooo 


0.000000 


0.000000 


o.oocooo 


8 6 


0.074100 


0.213037 


0.000000 


0. ooooco 


0.000000 


0.000000 


0.000000 


0. oooooo 


0.000000 


0.000000 


0.000000 


87 


0.222200 


0. 11 38 63 


0. OOOOOO 


0. COOCOO 


0.000000 


0.000000 


0.000000 


o.ooccoo 


0.000000 


o.ooccoo 


0. ooooco 


88 


0.370400 


0. 080982 


0 . OOOOOO 


0.000000 


0. ooocoo 


o.ooccoo 


0. ooocoo 


0.000000 


0 . oooooo 


O.OOCOCO 


o.ooccoo 


89 


0 . 5 °2 6 0 0 


0.051286 


o.ooccoo 


0. ooooco 


0. cooooo 


O.OOCOCO 


0. ooocoo 


O.OOCOCO 


o.ooocco 


c.ocoooo 


0. OCOCOO 


°0 


0.740700 


0.036423 


0.000000 


0 . ooooco 


0.000000 


0.000000 


0.000000 


0. oooooo 


0.000000 


o.ooocco 


c.ocoooo 


91 


0.8389C0 


0.021383 


o.oocooo 


0. ooocoo 


0.000000 


0.000000 


0.000000 


0. oooooo 


o.ooocco 


0.000000 


o.ooocco 


1 

2 

3 

4 

5 


0.014820 

0.029640 

0.044460 

0.059280 

0.074100 


0.5146S5 

0.359071 

0.288034 

0.244168 

0.213037 




detailed 


LEADING EDGE 


: LOADING 













« CHCRDWISE LOADING FOR ALL FUNDAMENTAL CASES * 



1 


XB 


CASE 1 


SECTION 
CASE 2 


14 Y = 

CASE 3 


0.261261 
CASE 4 


CHORD * 
CASE 5 


0.081081 
CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


92 


0.000000 


0.352101 


0.000000 


0. ooooco 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0. ooocoo 


93 


0.074100 


0.215751 


o.oocooo 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


O.OOCOCO 


0. ocooco 


94 


0.222200 


0.115339 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0. oooooo 


0. ooooco 


0.000000 


0.000000 


95 


0.370400 


0.082035 


o.oocooo 


O.OOCOCO 


0.000000 


0.000000 


0.000000 


o.oocooo 


0. ocooco 


o.oocooo 


0.000000 


9b 


0.592b00 


0.051954 


C. OOOOOO 


0. OOOOOO 


0.000000 


0.000000 


0.000000 


o.oocooo 


0. ooooco 


0. COOCOO 


o.ooocco 


97 


0.740700 


0.036962 


0.000000 


0. OOOOOO 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0. oooooo 


0. ooooco 


98 


0.888900 


0.021724 


0.000000 


0.000000 


0.000000 


0.000000 


0. ocooco 


0.000000 


0.000000 


0.000000 


0.000000 


1 

3 

4 

5 


0.014820 
0.029640 
0 . 044460 
0 .059280 
0.074100 


0.521C84 

0.363553 

0.291650 

0.247254 

0.215751 




DETAILED 


LEADING EDGE LOADING 













» CHORDW 1SE LOADING FOR ALL FUNDAMENTAL CASES » 
SECTION 15 V = 0.160162 CHORD * 0.C81C81 



92 









WING 



WING 



1 


XE 


CASE 1 


CASE 2 


CASE 3 


CASE 4 


CASE 5 


CASE 6 


CASE 7 


CASE 8 


CASE 9 


QO 


0 . ocoooo 


0.255045 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


100 


0.074100 


0.217624 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


101 


0.222200 


0-116296 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 . 000000 


0 . 000000 


0.000000 


102 


0.270400 


0.082342 


0.000000 


0.000000 


0.000000 


0.000000 


0. 000000 


0.000000 


0.000000 


0 .000000 


103 


0.592600 


0 . C524 °5 


o.ooccoo 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


104 


0.740700 




0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 .000000 


105 


0.888900 


0.021960 


0.000000 


0.000000 


0.000000 


0. 000000 


0.000000 


0.000000 


0.000000 


0.000000 










detailed 


LEADING EDGE LOADING 










1 


0.014820 


0.525454 


















2 


0. 02°640 


0 . 3bbo20 


















5 


0.044460 


0.294120 


















4 


0.059280 


0.249276 


















5 


0.074100 


0.217624 
























H CH0RDW15E LOADING FOR ALL 


FUNDAMENTAL 


CASES * 
















XXXXXXXXXX 


xxxxxxxxxxx 


XXXXXXXXXKXX 


XX «< X X X X X 














SECTION 


16 Y = 


0.054054 


CHORD = 


0.081081 








I 


XB 


CASE 1 


CASE 2 


CASE 3 


CASE 4 


CASE 5 


CASE 6 


CASE 7 


CASE 8 


CASE 9 


106 


0.000000 


0.256321 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


107 


0.074100 


0.218427 


0.000000 


o.oococo 


0.000000 


0.000000 


0.000000 


0 . ocoooo 


0 . ocoooo 


0.000000 


108 


0.222200 


0. 11&840 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


109 


0.370400 


0.082175 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


110 


0 . 5 Q 26Q0 


0.052723 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


111 


0.740700 


0.037499 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 . oocooo 


0.000000 


0.000000 


112 


0.888900 


0.022060 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 










DETAILED 


LEADING EDGE LOADING 










1 


0.014820 


0.527246 


















2 


0.029640 


0. 267*46 


















3 


0.044460 


0.295200 


















4 


0.059280 


0.250289 


















5 


0.074100 


0.218427 


























XXXXXXXXXX 




KXMKXXXXXNXMXXNXXX 









x SPANW1SE LOADING FOR FUNDAMENTAL CASE 1 » 













* ¥ ¥ 


************ 


XXXXXXXXXXX 
















. LIFT ... 
















ECT ION 


Y 


CLG 


CLMU 


CL 


¥ 


CDG 


CDMU 


cs 


CD 


CMU 


GAMMA 


1 


0 . 9984 98 


0 . 039682 


0. OOCOOO 


0 . 039682 


¥ 


0.0006926 


0.0000000 


0.000548° 


0.0001437 


0.0000000 


0 . 0C06S82 


2 


0 . 98°489 


0 .Co6027 


0.000000 


0.066037 




0.0011526 


C. 0000000 


0.0008555 


0.00C2971 


0 . ooooooo 


0.0012146 


* 


0 . 95 Q 459 


0 . 0B°45b 


0.000000 


0 . 08 945 6 


¥ 


0.0015613 


0.0000000 


0.0013291 


0.0002322 


0.0000000 


0.0017461 


4 


0.891892 


0.099763 


0.000000 


0.099763 


¥ 


0.0017412 


0.0000000 


0.0015949 


0. 00014b3 


o .ooooooo 


0.0021795 


5 


0 . 7 °2 7 93 


0 .102479 


0.000000 


0.102479 


¥ 


0.00176S6 


0.0000000 


0 . 00 1 e738 


0.0001148 


o. ooooooo 


0.0025651 


6 


0.6846S5 


0. 102628 


0.000000 


0. 102o28 


h 


0.0017912 


0.0000000 


0.0016775 


0.0001137 


0.0000000 


0.0029741 


7 


0.576577 


0.102320 


0.000000 


C. 102320 


¥ 


0.001785S 


0.0000000 


0 . CO 1 6682 


0.0001177 


0.0000000 


0.0033338 


8 


0.46S4o8 


0. 1004*1 


0.000000 


0.100461 


¥ 


0.0017534 


0.0000000 


0.0016117 


0.0001416 


0.0000000 


0.0036730 


9 


0 . 40 0 q O 1 


0 . 0°824° 


0.000000 


0. 09B24® 


¥ 


0.0017148 


0.0000000 


0.0015237 


0.0001911 


0.0000000 


0.0033208 


10 


C. 373874 


C .09S16o 


0.000000 


0.098166 




0.0017133 


o. ooocooo 


0.0015408 


0.0001725 


0.0000000 


0.0039060 


11 


0.355856 


0.097946 


0.000000 


0 . 0°794& 


¥ 


0.0017095 


0.0000000 


0.0015108 


0.0001986 


0.0000000 


0.0039487 


12 


0. 34c847 


0 . C°8124 


0.000000 


0.098124 


¥ 


0.0017126 


c. ooooooo 


C. 0015216 


0.0001910 


0.0000000 


0.0039780 


13 


0.324324 


0.098970 


0 . ocoooo 


0 . 0°8970 


¥ 


0.0017274 


o.ocooooo 


0 . 0 0 1 5 o4 3 


0.0001631 


0.0000000 


0.0040123 


14 


0.261261 


0.100253 


0 . oocooo 


0. 100253 


¥ 


0.C017497 


0.0000000 


0.0016034 


0.0001464 


0.0000000 


0. 0C40643 


15 


0.162162 


0.101171 


0.000000 


0.101171 


¥ 


0.0C17658 


0.0000000 


0.001&503 


0.0001355 


0.0000000 


0.0041015 


16 


0.054054 


0.101562 


0.000000 


0.101562 


¥ 


0.0017726 


0.0000000 


0.0016420 


0.0001306 


0.0000000 


0.0041174 




TOTAL 


0.100170 


0.000000 


0.100170 




0.0017483 


0.0000000 


0.0016073 


0.0001410 


0.0000000 





PITCHING MOMENT 



LIFT CENTER 



1 


0 . 9°84 98 -0.007753 


0.000000 


0.000000 -0.007753 


X 


u 


0 . 1 95380 


0. 1 °5380 


2 


0.989489 -C. 014751 


0. OOCOOO 


0. 000000 -0.014751 


« 


M 


0.223377 


0.223377 


3 


0.959459 -0.021497 


0.000000 


0.000000 -0.021497 


X 


X 


0.240311 


0.240311 


4 


0.891892 -0.024406 


o.ooooco 


0.000000 -0.024406 


X 


X 


0.244641 


0.244641 


5 


0. 7 °2 7 9 2 -0.025 14' 


o.ococoo 


0.000000 -C .025140 


X 


X 


0.245317 


0.245317 


6 


0.684*85 -0.0251SL 


0.000000 


0.000000 -0.025185 


X 


X 


0.245399 


0.245399 


7 


0.576577 -0.0251C4 


o.ooooco 


0.000000 -0.025104 


X 


X 


0.245350 


0.245350 


8 


0.468468 -0.024620 


o.ooooco 


0.000000 -0.024620 


X 


X 


0.245070 


0.245070 


9 


0.400901 - 0 . C 24 1 ° Q 


0 . ocoooo 


0.000000 -0.024100 




X 


0.246213 


0.246213 


10 


0.373874 -0.024053 


0.000000 


0.000000 -0.024053 


X 


X 


0.245026 


0.245026 


1 1 


0.355856 -0.024058 


C. 000000 


0.000000 -0 . 024058 


X 


X 


0.245625 


0.245625 


12 


0 . 34 o34 7 -0.024084 


0 . oocooo 


0.000000 -0.024C34 


X 


X 


0.245446 


0.245446 


13 


0.324324 -0.024256 


0. 000000 


0.000000 -0.024256 


X 


X 


0.245084 


0.245C84 


14 


0 . 2 o 1 2 6 1 -0.024584 


o.ooooco 


0.000000 -0.024584 


X 


X 


0.245225 


0.245225 


15 


0.162162 -0.024327 


0.000000 


0.000000 -0.024627 


X 


X 


0.2A5399 


0 . 245 3 0 9 


1 6 


0.054054 -0.024930 


0.000000 


0.000000 -0.024930 


* 


* 


0.245464 


0.245464 




TOTAL -0.031169 


0.000000 


0. OOCOOO -0.031169 


CAPEX) 


0.311161 


0.311161 




-0 . 0020o5 


0.000000 


0.C00000 -0 . 0020b5 


CX! 


-!C) 


0.021708 


0.021708 



(X/CREF) 
(X/B/2 ) 



total AERODYNAMIC COEFFICIENTS 





CASE 1 


CASE 2 


CASE 3 


CASE 4 


CASE 5 


CASE 6 


CASE 7 


CASE 8 


CASE ° 


CASE 10 


CCLG 


0. 10C16°° 


0.0000000 


0.0000000 


0 . ooooooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CCLJ 


0 .OOOOCCO 


0 . ooooooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


o.ooooooc 


0 . ooocooo 


»» CCL 


0.100169° 


0.0000000 


0 . ooocooo 


o.oooocoo 


o.ocooooo 


o.oooooco 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CCDG 


O.OC17483 


c.oooocoo 


0 .ooococo 


o.oooocoo 


0.0000000 


0.0000000 


0 . ooooooo 


0.0000000 


0.0000000 


0. oocoooo 


CCDJ 


0.0000000 


c.ococooo 


c .ooocooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


o.oooocoo 


CCS 


0 .00 It 07 3 


0. OOOOCCO 


0. OOOOCCO 


o. ooooooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CCD 


0.0001410 


0 . ooooooo 


0.0000C00 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0 . ooocooo 


0.0000000 


xx CD 1 72 


0 . 0C00962 


0.0000000 


O.OCOOOOO 


o.ocooooo 


0 . ooococo 


0.0000000 


0.0000000 


0 . ooooooo 


0.0000000 


0.0000000 


** CCJ 


0.0000000 


0.0000000 


0.0000000 


o.ocooooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CCMG 


-0.0311690 


0.0000000 


o.oocooco 


0.0000000 


O.OOQOOOO 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CCMJ 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0 . ooooooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CCMT 


O.OCOOOOO 


0.0000000 


0 . ooooooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0 . ooooooo 


0.0000000 


CCM 


-0. 031 16°0 


c.oooocoo 


o. ooocooo 


O.OCOOOOO 


0.0000000 


0.0000000 


0.0000000 


o.oooocoo 


0.0000000 


0 . oocoooo 


CXCP 


0.3111612 


c.oocoooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CXCL 


0.3111bl2 


c.oooocoo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CXCPB 


0.0217081 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


o.oooocoo 


0.0000000 


0.0000000 


0.0000000 


CXCLB 


0.0217081 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CCMGMC 


-0.0020645 


0 . ooooooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0 . ooocooo 


0.0000000 


CCMJMC 


0.0000000 


o. ooooooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CCMTMC 


0.0000000 


0.0000000 


o.ocooooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


xx CCMMC 


-0 . 0020645 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CLLG 


0.0000000 


0 . ooocooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


o.ocooooo 


0.0000000 


0.0000000 


CLLJ 


0.0000000 


0.0000000 


o.oooocoo 


0.0000000 


0.0000000 


0 . ooooooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


» CLL 


0.0000000 


0.0000000 


0.0000000 


0 . ooooooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CNJ 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


* CN1MC 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0 . ooooooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


* CCY 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


O.OCOOOOO 


0 . ooocooo 


0.0000000 


CBGR 


0.0435954 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CEGL 


0 . 0435 °54 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


o.oooooco 


0.0000000 


0.0000000 


CB JR 


0. OOOOOOO 


0.0000000 


0 . ooocooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CBJL 


0.0000000 


0.0000000 


0.0000000 


o.ocooooo 


0 . ooooooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CBR 


0.0435954 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CEL 


0.0435954 


0 . ooooooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CPMBR 


0.4352143 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CPMBL 


0.4352143 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


c .ooooooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 



CASE 10 

0.00C000 
0 .000000 
0.000000 
0 .000000 
0 .000000 
0 .000000 
0.000000 



CASE 10 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 



ALFIN 
.0572168 
.C245104 
i . 005°3 1 7 
.0019683 
.OOlOoi-Z 
.00 ’ 1 OS d 
. 0013267 
1.0017259 
1.001551 1 
i. 0020781 
i . 00 1 9 a 5 7 
i. 0026141 
i . 0 02 25 1 A 
i. 002021 9 
(.001 7824 
1.0016699 



.0000962 



93 



* THE PROGRAM HAG REACHED NCPMAL TER M I MAT I ON - 



* THE 



PROGRAM HAG 



REACHED 



TERMINATION *■ 



94 



JETFLAP INPUT DATA FILE DOUGLAS.DAT 



** ONR SAMPLE CASE *** RECTANGULAR WING 



4 . 500 






4 . 500 


1 . 000 


0 . 250 


4 3 0 


0 


0 


2 1 1 






0. 9750 






0. 88750 


0 . 68750 


0 . 2750 


1 1 2 


1 










5 6 












0 . 000 






0 . 100 


0 . 200 


0 . 500 


0 . 000 






0 . 100 


0 . 200 


0 . 500 


4 . 500 






0 . 000 


1 . 000 




1 1 1 


1 










4 












1 . 000 






1 . 100 


1 . 500 


3 . 000 


0 0 1 


0 


0 








1 . 000 






1 . 000 


1 . 000 


1 . 000 


0 0 0 


0 


1 








0 0 1 


0 










0 . 9000 




0 


1.000 






1 0 . 00 




2 


10. 00 3 


10 . 00 




9 












1 . 000 






1 . 000 


1 . 000 


1 . 000 



9 



CMU = 
250 



900 

800 



1 WITH STABILITY DER 



0 . 900 



95 



PROGRAM OUTPUT DATA FOR DOUGLAS.DAT 



* EVD JET - WING COMPUTER PROGRAM * 



CMU = 1 WITH STABILITY DER 



INPUT 
A .500000 
A .500000 
1 . 000000 
0.250003 

Q t Q C 0 O OC 

a!50C000 

0.250000 

A 

3 

0 

c 

0 

1 



NUMBER OP WING ELEMENTS = 21 

NUMBER OF JET ELEMENTS = 16 

TOTAL NUMBER OF ELEMENTS = 37 



- ELEMENT GEOMETRY DATA AND FUNDAMENTAL CASE DATA FOR FUNDAMENTAL CASE 1 * 





SECTION 1 ** 


» Y = 0.? 


75000 DELTA 


= 0.025C00 XLEAD = 


o.oooocc 


XTRA1L = 0. AAAAAA 


CHORD = 0. AAAAAA 


TANLE = 


0.000000 


WING 


ELEMENTS 


NW = 5 


TWIST = 0. 


OOCOOO 


HL = 0.000000 THETA S = 0.000000 










XB 


0.000000 


0. 100000 


0.200000 


0.5C0030 


G.90000G 












XI 


0.000000 


o.oaaaaa 


0 . 06888° 


0.222222 


O.AOOOOO 












DEL 


0. 100000 


0. 100000 


0.300000 


o.agoooo 


0.100000 












EPS 


1.000000 


1.000000 


1.000000 


1 .000000 


1 .000000 












BE T A 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 












TYPE 


20 


10 


10 


10 


10 










JET 


ELEMENTS 


NJ = A 


D = 0.88888? DJ 


= 0.000000 


ACTE = 


0.000000 THETA 


= 1.000000 








XB 


1.000000 


1 .100000 


1 .500000 


3 .000000 














XI 


0.AAA6AA 


0. A8888? 


0.666667 


1 .333333 














DEL 


0. 100000 


0 . A 000 00 


1 .500000- 
















BETA 


0.000000 


0.000000 


0. OOCOOO 


0.000000 














TYPE 


10 


10 


10 


30 












MMN : 


SECTION 2 •»« 


" Y S 0.887500 DELTA 


= 0.062500 XLEAD a 


0.000000 


XTRA1L = 0. AAAAAA 


CHORD = 0. AAAAAA 


tanle = 


0.000000 


WING 


ELEMENTS 


NW = 5 


TWIST = 0. 


000000 


HL = 0.000000 THETA s = 0.000000 










XB 


0.000000 


0. 100000 


0.200000 


0.500000 


0.900000 












XI 


0.000000 


o. OAAAAA 


0.088S8a 


0.222222 


O.AOOOOO 












DEL 


0 . 100000 


C . 1 oooco 


0 .300003 


O.AOOOOO 


C .100000 












EPS 


I .000000 


1.000000 


1.000000 


1.000000 


1 .ocoooo 












BETA 


0 . 000000 


0.000000 


0.000000 


0.000000 


C .000000 












TYPE 


20 


10 


10 


10 


10 










JET 


elements 


NJ = A 


D = 0.88888? DJ 


= 0.000000 


ACTE = 


0.000000 THETA 


= 1.000000 








XE 


1.000000 


1 .100000 


1 .500003 


3.000000 














XI 


o . AAAAAA 


0.A88S8? 


0.666667 


1 .333333 














DEL 


C .100000 


O.AOOOOO 


1.500000- 
















beta 


C. 000000 


0.000000 


0.000000 


0 .OOCOOO 














TYPE 


10 


10 


10 


30 














SECTION 3 -* 


* Y = 0.687500 DELTA 


= 0.137500 XLEAD = 


0.000000 


XTPAIL = 0. AAAAAA 


CHORD = 0. AAAAAA 


TANLE * 


0.000000 


WING 


elements 


NW - 6 


TWIST = 0. 


000000 


HL = 0.000000 THETA S = 0.000000 










XB 


0.000000 


0. 1CCOOO 


0.200000 


0.50000C 


0.8C0CC0 


0.900000 










XI 


0.000000 


0. OAAAAA 


0.08888? 


0.222222 


0.25555c 


O.AOOOOO 










DEL 


0.100000 


0. 100000 


0.3G0000 


0.300000 


0.100000 


0. 10C000 










EPS 


1 .000000 


1 . ocoooo 


1 . OOCOOO 


1 . 000000 


1.000000 


1 . 000000 










BETA 


0.000000 


c.occooo 


0. OOOCOO 


0.000000 


0.000000 


0.000000 










TYPE 


20 


10 


10 


10 


10 


10 








JET 


elements 


NJ = A 


D = 0.88388? DJ 


= 0.000000 


AC”E = 


0.000000 THETA 


= 1.000000 








X5 


1 . 000000 


1 .100000 


1 .500000 


3.000000 














XI 


Q.ALAAAA 


0.A83S3? 


0.666667 


1 .333333 














DEL 


0. 100000 


O.AOOOOO 


1 .500000* 
















BE T A 


0 . 000000 


0. 000000 


G .000000 


O.GOOOCO 














T YPE 


10 


10 


10 


30 












MO- 


SECT I CN A 


Y = 0.2 


75000 DELTA 


= 0.2750C0 XLEAD = 


0.000000 


XTRAIL = 0. AAAAAA 


CHORD = C. AAAAAA 


TANLE = 


0.000000 


WING 


ELEMENTS 


NW = 5 


TWIST = 0. 


000000 


HL = G. 000000 THETA S * 0.000000 










X8 


0.000000 


0 . 1000C0 


0.200000 


0.500000 


0.900000 












XI 


0.000000 


0. OAA^mA 


0 .C88S8 b 


0.222222 


O.AOOOOO 












DEL 


0.100000 


0. 100000 


0. 3O0COO 


O.AOOOOO 


0. 100000 












EPS 


1 .000000 


1 .ocoooo 


1 .000000 


1 .G000C0 


1 .000000 












beta 


0.000000 


0 .000000 


0-000000 


0.000000 


0.000000 












TYPE 


20 


10 


10 


10 


10 










JET 


ELEMENTS 


NJ = A 


D = 0.BS883? DJ 


= C. OCOOOO 


ACTE = 


0.000000 THETA 


= 1.000000 








X5 


1 . cocooo 


1 .100000 


1.500000 


3.000000 














XI 


0 .AAAAAA 


0.A8888? 


0.666667 


1.333333 














DEL 


0 .100000 


O.AOOOOO 


1.500000- 
















8ETA 


0.000000 


0.000000 


0.000000 


0.000000 














TYPE 


10 


10 


10 


20 













* ELEMENT GEOMETRY DATA AND FUNDAMENTAL CASE DATA FOR FUNDAMENTAL CASE 2 * 



»»» 


SECTION 1 -** Y = 0.9 


75000 DELTA 


= 0.025000 XLEAD = 


0. OCOOOO 


XTRAIL 


a 0. AAAAAA 


CHORD 


= 0 . 


AAAAAA 


TANLE a 


0.000000 


WING 


ELEMENTS NW * 5 


TWIST = 0. 


000000 


HL = 0.000000 THETA S = 


0.000000 














X8 0.000000 


0 . 100000 


0.200000 


0.500000 


0.900000 


















EPS 0.000000 


0 .000000 


O.COOOOO 


0.000000 


0.000000 


















BETA 0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


















TYPE 20 


10 


10 


10 


10 
















JET 


ELEMENTS NJ = A 


D a 0.88888? DJ 


* 1.C00000 


ACTE = 


0.000000 THETA 


a 1 . 


000000 










XE 1.000000 


1 .100000 


1 .500000 


3.000000 




















BETA 1. ocoooo 


0.000000 


0.000000 


0.000000 




















TYPE A3 


10 


10 


30 


















m « m 


SECTION 2 Y * 0.887500 DELTA 


= 0.062' 


500 XLEAD = 


0.000000 


XTRAIL 


* 0. AAAAAA 


CHORD 


a 0 . 


AAAAAA 


TANLE a 


0.000000 


WING 


ELEMENTS NW a 5 


TWIST = 0. 


OCOOCO 


HL = 0.000000 THETA S = 


0.000000 














XB 0.000000 


0.100000 


0.200000 


0.500000 


0.900000 


















EPS 0. OCOOOO 


0.000000 


0. OOCOOO 


0.000000 


0.000000 


















BETA C. 000000 


o.cooooo 


0.000000 


0.000000 


0.000000 


















TYPE 20 


10 


10 


10 


10 
















JET 


ELEMENTS NJ = A 


D a 0.888889 DJ 


a 1.000000 


ACTE a 


0.000000 THETA 


a 1 . 


000000 










X8 1.000000 


1 .100000 


1.500000 


3.000000 




















BE T A 1.000000 


0.000000 


0.000000 


0.000000 




















TYPE A3 


10 


10 


30 
















0.000000 


t » • « 


SECTION 3 * - - Y a 0.687500 DELTA 


a 0.127 


500 XLEAD a 


0.000000 


XTRAIL 


= o . AAAAAA 


CHORD 


= 0 . 


AAAAAA 


TANLE a 


WING 


ELEMENTS NW = 6 


TWIST = 0. 


000000 


HL = 0.000000 THETA S = 


0.000000 













• * ONR SAMPLE CASE RECTANGULAR WING 



USED 



AREA 


- 


0.888889 


SPAN 


s 


2.000000 


CREF 


s 


0 .AAAAAA 


XMC 


= 


0.111111 


CKAC 


s 


0 . AA6AAA 


ARATIO 


= 


A. 500000 


XCG 


a 


0.111111 




NROWS 


a A 




NCASES 


= 3 




ISymm 


= 0 




1 PR 1 NT 


a 0 




je t flg 


= 0 




IGTYPE 


a 2 




IHINGE 


a 0 



96 



X8 


0.000000 


0.100000 


0.200000 


0.500000 


0. 800000 


0.900000 




EPS 


0.000000 


0.000000 


0.000000 


0 . 000000 


0 . 000000 


0.000000 




EETA 


0.000000 


0 . cooooo 


0.030000 


0.000000 


0.000000 


0.000000 




TYPE 


20 


10 


10 


10 


10 


10 




vET ELEMENTS 


NJ = A 


D = 0.888889 DJ 


= 1.000000 


ACTE = 


0.000000 THETA 


= 1. OOOOCO 


XB 


1 . 000000 


1 .1 00000 


1.500000 


3.000000 








8ETA 


1 . OOOOO0 


0.000000 


0.000000 


0.000000 








type 


A3 


10 


10 


30 








SECTION A x* 


Y = 0.2 


75000 DELTA 


= 0.275000 XLEAD = 


0.000000 


X7RA1L = O.AAAAAA 


CHORD = 0.< 


WING ELEMENTS 


NW = 5 


TWIST = 0. 


000000 


HL - 0.000000 THETA S = 0.000000 




XB 


0.000000 


0. 100000 


0.200000 


0 .500000 


0.900000 






EPS 


0. 000000 


0 .000300 


0.000000 


0.000000 


0.000000 






8E T A 


0.000000 


0 .000000 


0 .oocooo 


0.000000 


o.ocooco 






TYPE 


20 


10 


10 


10 


10 






JET ELEMENTS 


NJ = A 


D = 0.888889 DJ 


= 1.000000 


ACTE = 


0.000000 THETA 


= 1.000000 


XE 


1.000000 


1 .100000 


1 .500000 


3. OOOOCO 








BETA 


1 .000000 


0.000000 


0 .000000 


0 . 000000 








TYPE 


A3 


10 


10 


30 









» ELEMENT GEOMETRY DATA AND FUNDAMENTAL CASE DATA FOP FUNDAMENTAL CASE Z » 







* » M * > 








*»*M*^**«M 


********************> 




* * * * * 




N M » : 


SECTION 1 xx 


' x Y = 0.975000 DELTA 


= 0.025000 XLEAD = 


0.000000 


XTRA1L s O.tmtC 


CHORD = 


O.AAAAAA 


WING 


ELEMENTS 


NW = 5 


TWIST = 0. 


000000 


HL = 0.000000 THETA S = 0.000000 










XE 


0.000000 


0 . 1000C0 


0.200000 


0.500000 


0.900000 












EPS 


0.000000 


0.000000 


0.000000 


C.000000 


0.000000 












BETA 


0. OOCOOO 


0.000000 


0.000000 


0.000000 


0.000000 












TYPE 


20 


10 


10 


10 


10 










JET 


ELEMENTS 


NJ = A 


D = 0 . 888889 DJ 


= 0.000000 


ACTE = 


0.000000 theta 


s 


0.000000 




XB 


1 . 000000 


1 . 100000 


l .sooooo 


3.000000 














EETA 


0 . 000000 


0.000000 


0.000000 


0. 000000 














TYPE 


A3 


10 


10 


ZD 












: 


SECTION 2 X- 


« Y = 0.887500 DELTA 


= 0.062500 XLEAD = 


0 . 000000 


XTRA1L = O.AAAAAA 


CHORD * 


O.AAAAAA 


WING 


ELEMENTS 


NW = 5 


TWIST = 0. 


OOOOCO 


HL 5 0.000000 THETA S s 0.000000 










X8 


0.000000 


0.100000 


0.200000 


0.500000 


0.900000 












EPS 


0. OOCOOO 


0.000000 


0. OOOOCO 


O.OOOCOO 


0.000000 












BETA 


0.000000 


0.000000 


0 . OOOOCO 


0.000000 


0.000000 












TYPE 


20 


10 


10 


10 


10 










JET 


ELEMENTS 


NJ = A 


D = 0 .88888° DJ 


= 0.000000 


ACTE * 


0.000000 theta 


S 


0.000000 




XB 


1 .oocooo 


1 . 10C000 


1.500000 


3. OOOOCO 














EETA 


0.000000 


0 .000000 


0.000000 


0.000000 














TYPE 


A3 


10 


10 


30 












x x * : 


SECTION 3 xx 


x V = 0.687500 DELTA 


= 0.137500 XLEAD = 


0.000000 


XTRA1L = O.AAAAAA 


CHORD » 


0 .A A6AAA 


WING 


ELEMENTS 


NW = 6 


TWIST = 0. 


oocooo 


HL = 0.000000 THETA S = 0.000000 










XE 


0.000000 


0 .100000 


0.200000 


0 .500000 


0 .800000 


0.900000 










E^S 


0.000000 


O.OOOCOO 


0. OOOOCO 


0. OOCOOO 


0.000000 


1.000000 










EE T A 


0.000000 


0.000000 


0.000000 


0.QCQ000 


0 .000000 


1 .000000 










TYPE 


20 


10 


10 


10 


10 


A2 








JET 


ELEMENTS 


NJ = A 


D = 0. 88888° DJ 


* 0. COOOOO 


ACTE = 


0.000000 theta 


= 


1 .000000 




X8 


1.000000 


1 .100000 


1.500000 


3. 0C0000 














BETA 


o.ooocoo 


0.000000 


0.000000 


0.000000 














TYPE 


A3 


10 


10 


30 












* : 


SECTION 6 -- 


x V = 0.2 


75000 DELTA 


= 0.275000 XLEAD = 


0.000000 


XTRA1L = O.AAAAAA 


CHORD = 


O.AAAAAA 


WING 


ELEMENTS 


NW = 5 


TWIST = 0. 


000000 


HL = 0.000000 THETA S = 0.000000 










XE 


0.000000 


0. 100000 


0 .200000 


0.500000 


0. 900000 












EPS 


0 . cooooo 


0. 000000 


0.000000 


0.000000 


0.000000 












BETA 


0.000000 


0.000000 


0.000000 


0 .000000 


0.000000 












TYPE 


20 


10 


10 


10 


10 










JET 


ELEMENTS 


NJ = A 


D = 0.88888° DJ 


= o.ocoooo 


ACTE = 


0.000000 THETA 


= 


0.000000 




X8 


1.030000 


1 .100000 


1.500COC 


3 .OOOOCO 














EETA 


c. cooooo 


0.000000 


0.000000 


0.000000 














TYPE 


A3 


10 


10 


30 













x SECT 1 ONAL JET BLOWING COEFFICIENTS * 



TANLE = 



tanle = 



TANLE = 



TANLE = 



TANLE = 



ROW CMU 

1 1.000000 

2 1.000000 

3 1.000000 

A 1.000000 



ELEMENT GEOMETRY DAT. 



AND FUNDAMENTAL CASE DATA FOR FUNDAMENTAL CASE 



A * 



«« » ; 


SECTION 1 -X 


x Y =■ 0. 


975000 DELTA 


= 0.0250 


00 XLEAD = 


0.000000 


XTRA1L = O.AAAAAA 


CHORD = 


O.AAAAAA 


WING 


ELEMENTS 


NW = 5 


TWIST = 0. 


000000 


HL = 0.000000 THETA S = 0. OOOOOO 










XB 


0.000000 


0.100000 


0.2CC00O 


0 .5COOC0 


0.900000 












EPS 


-0 .A00000 


- 0.200000 


0 . J Q Q Q Q Q 


o . °ooeoo 


1 . A00000 












BETA 


0. OOOOCO 


0.000003 


e! oooooo 


o.ocoooo 


0.000000 












type 


20 


10 


10 


10 


10 










JET 


ELEMENTS 


NJ = A 


D = 0.888889 DJ 


= o.ocoooo 


ACTE = 


0.000000 THETA 


= 


1.500000 




XE 


1 .000000 


1 .100000 


1 .500CC0 


3.000000 














BETA 


c.oooooc 


0.000000 


0. OOOOCO 


o.ooocoo 














TYPE 


A3 


10 


10 


30 












X “ M ! 


SECTION 2 « x 


x Y = o.l 


837500 DELTA 


3 0 . 0*250 0 XwEAD = 


0. OOCOOO 


XTRA1L = O.AAAAAA 


CHORD = 


O.AAAAAA 


WING 


ELEMENTS 


NW = 5 


TWIST = 0. 


oooooo 


HL = 0. OOOOCO theta s = 0.000000 










XB 


0.000000 


0 .100000 


0 .2CC000 


0.500000 


C . 900COO 












EPS 


-0.600000 


- 0.200000 


0 . 1 9 o a a a 


0 .900000 


1 . AOOOOO 












BETA 


0. OOCOOO 


0.000000 


olooooco 


0 . OOOOCO 


0. OOCOOO 












TYPE 


20 


10 


10 


10 


10 










JET 


ELEMENTS 


NJ r A 


D = 0.898889 DJ 


= C.000000 


ACTE * 


0.000000 THETA 


s 


1.500000 




XB 


1 . 000000 


1 .100000 


1 .500000 


3.000000 














BETA 


0. 000000 


0.000000 


0.000000 


0.000000 














TYPE 


A3 


10 


10 


30 












H « M ' 


SECTION 3 xx 


x Y = 0. 


687500 DELTA 


= 0.137500 XLEAD = 


0.000000 


XTRA1L = O.AAAAAA 


CHORD = 


O.AAAAAA 


WING 


ELEMENTS 


NW * 6 


TWIST = 0. 


OOOOCO 


HL 3 0.C000C0 THETA S = 0.000000 










X 8 


0.000000 


0. 100000 


0.200000 


0.500000 


0.800000 


0.900000 










EPS 


-O.AOOOOO 


- 0.200000 


0 . 1°9°°9 


0.800000 


1.199999 


1 .AOOOOO 










BETA 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 










TYPE 


20 


10 


10 


10 


10 


A2 








JET 


ELEMENTS 


NJ = A 


D = 0.888889 DJ 


3 0. oocooo 


ACTE = 


0.000000 THETA 


s 


1.500000 




XB 


1 .000000 


1 .100000 


1 .5COOOO 


3.000000 














BETA 


0.000000 


0.000000 


0.000000 


0 . oooooo 














TYPE 


A3 


10 


10 


30 












XXX : 


SECTION A xx 


x Y = 0. 


275000 DELTA 


= 0.275000 XLEAD = 


0.000000 


XTRA1L = O.AAAAAA 


CHORD = 


O.AAAAAA 


KING 


ELEMENTS 


NW r 5 


TWIST =• 0 . 


000003 


HL 3 0.000000 THETA S = 0.000000 










XB 


O.OOOCOO 


0 . 100000 


0.200000 


0.500C00 


0.900000 












EPS 


-O.AOOOOO 


-0 .200000 


0 . JOQOQQ 


0.900000 


1 .AOOOOO 












8 ETA 


0.000000 


0.000000 


0. OOOOOO 


0 .OOOOCO 


0.000000 












TYPE 


20 


10 


10 


10 


10 










JET 


ELEMENTS 


NJ = A 


D * 0.888889 DJ 


= 0 . cooooo 


ACTE = 


0.000000 THETA 


r 


1 .500000 




XB 


1.000000 


1 . 100000 


1 .500000 


3.000000 














BETA 


0.000000 


0.000000 


0.000000 


0.000000 














TYPE 


A3 


10 


10 


30 













* CHCRDWISE LOADING FOR ALL FUNDAMENTAL CASES " 



TANLE = 



TANLE = 



TANLE = 



TANLE = 



SECTION 1 Y s 0.975000 CHORD = O.AAAAAA 



0.000000 



0.000000 



0.000000 



0.000000 



0.000000 



0.000000 



0.000000 



0.000000 



0.000000 



97 





I 


XE 




CASE 1 


CASE 2 


CASE 2 


CASE 4 


CASE 5 


CASE 6 


CASE 7 


CASE 8 


CASE * 


CASE 10 


WING 






























1 


0.000000 




0.12*570 


0.015231 


0.006761 


0 .028**3 


0.000000 


0.000000 


c.ococoo 


0.000000 


0.000000 


0 . ococoo 




2 


0 .100000 




0 . 0 b24 7 * 


0.909627 


C .00*529 


o.C4ie4o 


0 . 000000 


0.000000 


0 .000000 


0.000000 


o.oeoooo 


o.oeoooo 




z 


0 .200000 




0.036113 


C.CC7270 


C .C03624 


0 . 0422b 1 


0.000000 


0.000000 


0 . ooooco 


0.000000 


0 . ooooco 


0.000000 




4 


C .500000 




O.OltOb? 


0 .CC6750 


C .C04230 


C . 044C40 


o.oocooo 


0 . occooo 


0.000000 


o.oocooo 


c. cooooo 


o.oocooo 




5 


0 . 500000 




0.007476 


0.016049 


0-005106 


0.023773 


o.oeoooo 


0.000000 


o.oocooo 


o.oocooo 


0.000000 


o.oocooo 


JET 






























22 


1.000000 




C. 005187 


0.058976 


0.00264* 


0.019742 


0.000000 


0.000000 


0 . 000000 


0.000000 


0 -OOOOCO 


0.000000 




2 Z 


I .100000 




0. 00320i 


0 . C 0 9 18 3 


0.002402 


0 .00835* 


0.000000 


0.000000 


c .cooooo 


0.000000 


O.OOCOOO 


0 . ooooco 




24 


1 .5 000 00 




C. 001203 


0.001247 


0.0CC598 


0 .002077 


o.oeoooo 


0.000000 


0.000000 


0.000000 


0.0CC30C 


0 . ooooco 




25 


3.000009 




0.000202 


0.009111 


0.000026 


0 . 0002s 1 


0.000000 


0.000000 


O.OOODOC 


0.000000 


0 . ococoo 


o.oocooo 














detailed 


LEADING EDGE LGADING 














1 


0.020090 




0.188371 


0.022600 


0.010033 


0.047722 
















2 


0.040000 




0. 127CI8 


0.015844 


0.007125 


0.039565 
















3 


0 .060000 




0.097175 


0.012793 


0.005832 


0.038460 
















4 


0. 08C000 




0.077455 


0.010931 


C. 005056 


0.029619 
















5 


0 .100000 




0 .062479 


0.009627 


0.00452? 


0.041840 
























* CHORDwISE LOADING FOR ALL 


FUNDAMENTAL 


CASES « 




















SECT I ON 


2 Y = 


0.887500 


CHORD = 


0.444444 












I 


XE 




CASE 1 


CASE 2 


CASE 2 


CASE 4 


CASE 5 


CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


WING 






























6 


0.000000 




0 . 185800 


0.024182 


0.010750 


0.056724 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 




7 


C. 100000 




0.107423 


0 . 0 I 7 0 Q 4 


0. 008019 


0.0685*6 


0.000000 


0. 000000 


0 . cooooo 


0.000000 


o.oocooo 


o.oocooo 




8 


0.200000 




0 . 0 b4 7 08 


0 .012036 


0.00649? 


0.067874 


o.coooco 


0.000000 


o.oeoooo 


0.000000 


0.000000 


0.000000 




« 


0.500000 




0 . 02 Q 23 b 


0.012C62 


0 . 007**3 


0.070135 


0.000000 


0.000000 


0 . 000000 


0.000000 


0.000000 


0.000000 


JCT 


10 


0.9C0090 




0. 012979 


0.027342 


0.011412 


0.051704 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 




26 


1.000000 




0.008877 


0.071213 


0. 008014 


0.030824 


0.000000 


0.000000 


o.oeoooo 


0.000000 


o.oeoooo 


0.000000 




27 


1 . 100000 




0.005498 


0.01562b 


0.004877 


0.014111 


0.000000 


0.000000 


0.000000 


0. 000000 


0.000000 


0.000000 




28 


1 .500000 




0. 001876 


0.001990 


0.000959 


0.003273 


0.000000 


o.oeoooo 


0.000000 


0 .000000 


0.000000 


o.oocooo 




29 


3.000000 




0 .000287 


0.000155 


0.000022 


0.00036* 


0.000000 


C. 000000 


0.000000 


0.000000 


0.000000 


0.000000 














DETAILED 


LEADING EDGE LOADING 














1 


0.020000 




0.273687 


0.036243 


0.01bl*6 


0.090728 
















2 


0.040000 




0.189277 


0.025879 


0.011673 


0.072112 
















3 


0.060000 




0.150051 


0.021396 


0 .009764 


0.0672*2 
















4 


0. 080000 




0.125240 


0.018802 


0.0086*4 


0.066*06 
















5 


0. lOCOOO 




0.1C7432 


0.017094 


0.00801* 


0 .0b85*b 
























*■ CHORDWISE LOADING FOR ALL 


FUNDAMENTAL 


CASES * 




















SECTION 


3 v* 


0.687500 


CHCRD = 


0.444444 












I 


X8 




CASE 1 


CASE 2 


CASE 3 


CASE 4 


CASE 5 


CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


WING 






























11 


0. 000000 




0. 230760 


0 .0f468b 


0.014448 


0.091328 


0.000000 


0.000000 


0.000000 


o.oeoooo 


o.oocooo 


0.000000 




12 


0.100000 




0 .1408*7 


0.025102 


0.011127 


0.095*08 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 




13 


0 .200000 




0 -089534 


0.01*422 


0.009287 


0.090417 


o.oocooo 


o.oeoooo 


o.oocooo 


o.oocooo 


0.000000 


0. ooooco 




14 


0 .500000 




0 . 044098 


0.018778 


0.0124'i 


C. 08*255 


0.000000 


0.000000 


o.oocooo 


0.000000 


0.000000 


0.000000 




15 


0 .8CCOOO 




0.025147 


0.C27331 


0.022386 


0.072*30 


0.000000 


0.000000 


0.000000 


0.000000 


0 - ococoo 


0.000000 




lo 


0.900000 




C. 020025 


0 . 0 25 b 25 


0 . 085 b2 6 


0 • Gb22i b 


0.000000 


0.000000 


0.000000 


0. 000000 


0.000000 


c.ooocoo 




30 


1 .000000 




0.012414 


0.076281 


0.0262*3 


0.02*216 


o.oocooo 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 




31 


1 .100000 




0.008223 


0.01*171 


0.011354 


0.01*238 


0.000000 


0.000000 


0 . ooooco 


0.000000 


c. ooooco 


0.000000 




32 


1 .500000 




0.002674 


0.002923 


0.0C1 175 


0.004705 


0.000000 


0.000000 


0.000000 


0.000000 


0 .000000 


0.000000 




33 


3.000000 




0.000248 


C. 000 1 7* 


0.000040 


0.000442 


0.000000 


0.000000 


0.000000 


0.000000 


0 . ooooco 


0 . cooooo 














DETAILED 


LEADING EDGE LOADING 














1 


0.020000 




0.341403 


0.052102 


0.021826 


0.142840 
















2 


0.040000 




0.228Cb5 


0.037253 


0.015827 


0.11067* 
















3 


C . 060000 




0.1*0841 


C. 031 04 0 


0.013222 


0.099851 
















4 


o.oeoooo 




0. 1616u4 


0.027426 


0.011*65 


0 . 0 * b 1 *8 
















5 


0 .100000 




0 . 1408*7 


C. 025 102 


0.011127 


0.095*08 
























* CHORDwISE LOADING FCR A_L 


FUNDAMENTAL 


CASES * 




















SECTION 


4 Y = 


0.275000 


CHORD = 


0.444444 












I 


XB 




CASE 1 


CASE 2 


CASE 2 


CASE 4 


CASE 5 


CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


WING 






























17 


0.000000 




0.261297 


0 .044229 


0.011430 


0.121581 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 




18 


0. 1OOOO0 




0 .162281 


0. 03200b 


0.007920 


0 . 117142 


0.000000 


0.000000 


o.oocooo 


o.oocooo 


0.000000 


o.oocooo 




1“ 


0 .200000 




0 .105208 


0.02465* 


C. 0058 08 


0 .106212 


0.000000 


0 . ooooco 


0.000000 


0.000000 


0.000000 


0 .000000 




20 


0.500000 




0.054222 


0.022370 


0.004253 


0.101691 


0.000000 


0. 000000 


0.000000 


0.000000 


C.000000 


0.000000 


CT 


21 


0. *00000 




0.02530o 


0.03 68 1 8 


0 . C 029 1 3 


0 .071627 


0.000000 


0.000000 


0.000000 


o.oocooo 


0. 000000 


o.oeoooo 




34 


1.000000 




0.01724* 


0 . 07828 1 


0.002094 


0.044615 


0.000000 


0.000000 


0.000000 


0 . ooooco 


0.000000 


0.000000 




35 


1 . 100000 




0.010686 


0. C2C564 


0.0014*0 


0 .0228b0 


0.000000 


0.000000 


0.000000 


C. 000000 


c. cooooo 


0.000000 




3 6 


1 .500CC0 




0.CC3S24 


0 .003578 


0.000644 


0.005**0 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 




Z 7 


3.000000 




0.000403 


0.000220 


o.ooooei 


0.000522 


0.000000 


0.000000 


o.oeoooo 


o.oocooo 


0.000000 


0 . ococoo 














DETAILED 


LEADING EDGE LOADING 














1 


0.020000 




0.3871 35 


0.066586 


0.017101 


0. 1884o0 
















2 


0.040000 




0 . 2 ?C6o4 


0.04771b 


0.012172 


0 . 1425*3 
















3 


0.060000 




0.217733 


0 . 02?c29 


0.C1CC22 


0.1262*4 
















4 


o.osocoo 




C. 185226 


0.03500o 


C . 0 08 7 o 7 


0.11*4*2 
















5 


0.100000 




0. 162281 


0. 0320C6 


0.007*20 


0.117142 
























* SPANWISE LOADING FOR FUNDAMENTAL CAS 


E 1 * 














































LIFT 
















SECTION 


Y 


CLG 


CL w u CL 


¥ 


CDG 


CDMU 


CS 


CD 


CMU 


GA-MA 


ALF in 


1 




0.975000 


0 


.034284 0 


.017453 0.051727 * 


0.0005*84 


0.0001523 


C. 0002*20 


0.0004577 


1 .oooocco 


0.0082269 


0.0^.20782 


2 




0.887500 


0 


.056186 0 


.017453 O.O: 


7262* * 


0.0009806 


0.0001523 


0.0006025 


0 . 00 05 304 


1.0000000 


o.oi24 0 ;4 


0.021**81 


z 




0 . 687500 


0 


. 0 7bC 14 0 


.017453 0.093467 * 


0.0013267 


0.0001523 


0 .00092*4 


0.000549b 


1.0000000 


0.0132760 


0.0120724 


4 




0.275000 


0 


.089566 0 


.017453 0.107019 * 


0.0015622 


0.0001523 


0.0011916 


0.0005239 


1 . 0000000 


0.0216792 


0.0065520 






TOTAL 


0 


.078903 0 


.017452 0.096356 - 


0.0013771 


0 . 0001523 


0.0010010 


0.0005285 


0.9*99999 




0.0005049 


















. . LIFT CENTER . . . 










SECTION Y 




CMG 


CMMU 


CMT 


CM 


M * 


xcp/c ; 


KCL/C 










1 


0.975000 -0.007640 -0.017453 


0.017453 


-0.007640 


* N 


0.222834 0 


.485007 










2 


0.88 


7500 -0.0134 


20 -0.017453 


0.017453 


-0.013420 


M M 


0.228857 0 


.41*256 










3 


0.68 


7500 -0.019453 -0.017453 


0.017453 


-0.01*453 


M « 


0.255*12 0 


.2*4857 










4 


0.27 


5000 -0.0238 


31 -0.017453 


0.017453 


-0.023831 


M M 


0.26b070 0 


.335763 












TOT 


A l 


-0.020516 -0.017453 


0.017452 


- 0 . C 205 1 6 


(APEX) 


0.260017 0 


.394053 (X/CREF) 














-0.000790 -0.0130*0 


0.013090 


-0.000790 


CXMC) 


0.115563 0 


.175135 ( X/B/2 ) 







SPANWISE LOADING FOR FUNDAMENTAL CASE 2 « 



SECTION 

1 



y 

0.975000 

0.887500 

0.687500 

0.275000 



CLG 

0.013256 

0.021353 

0.028445 

0.032527 



. LIFT . . . 

CLMU 

0.017453 

0.017453 

0.C17453 

0.017453 



CL 

0.030710 
0.038806 
0 . CASS' 10 
0.050980 



CDG 

0.0000000 

0.0000000 

0.0000000 

0.0000000 



CDMU 

0.0001523 

0.0001523 

0.0001523 

0.0001523 



CS 

0.0000040 
0.0000102 
0.0000210 
0. 0000343 



INDUCED DRAG 
CD 

0.0001483 
0.0001421 
0.0001312 
0.0001180 



CMU 

1.0000000 
1.0000000 
1 . 0000000 
1.0000000 



GAMMA 
0.0044428 
0.0C69194 
0. 008 0616 
0.0103522 



alfin 
0.0255782 
0.0122945 
0 . 0C5763O 
0.0022041 



TOTAL 0.029594 0.017453 0.047047 « 0.0000000 0.0001523 0.0000261 0.0001262 

PITCHING MOMENT ... LIFT CENTER ... 

SECTION Y CMG CMMU CMT CM " " XC P/C XCL/C 

1 0.975000 -0.007834 -0.017453 0.000000 -0.025288 « « 0.590993 0.823444 



0.9999999 



0.0001167 



9S 



3 

4 



0.565827 0.761099 
0.533000 0. 710560 
0.509043 0.677125 



0.BB7500 -0.012082 -0.017453 0.000000 -0.029535 * * 
0.667500 -0.015161 -0.01 7453 0.000000 -0.032615 * •* 
0.275000 —0.017067 -0.017453 O.OCOOOO -0.034520 « * 



TOTAL -0.015459 -0.017453 0.000000 -0.032911 (APEX) 
-0.Q08C5* -0.013090 0.000000 -0.021149 (XMC) 



0.522332 0.699534 (X/CPEF) 

0.232148 0.310*04 (X/8/2) 



SPANWISE LOADING FOR FUNDAMENTAL CASE 3 



SECTION 

1 



Y 

0.975000 

0.887500 

0.687500 

0.275000 



CLG 

0.004811 

0.009230 

0.024510 

0.005419 



. LIFT ... 

CLMU 

0.000000 

0.000000 

0.017453 

0.000000 



CL 

0.004811 
0. 009230 
0.041964 
0.005419 



CDG 

0.0000000 
0.0000000 
0 . OOOC97 7 
0.0000000 



CDMU 

0.0000000 
0 .0000000 
0.0001523 
0.0000000 



INDUCED DRAG 

CS CD 

0 . OOOOOOB -0.0000008 
0.0000020 - 0 . 00 00020 
0.0000036 0.0002463 

0.0000023 -0.0000023 



CMU 



0000000 
1.0000000 
1 .0000000 
1 .0000000 



GAMMA 
0.0013849 
0.0026327 
0 . 00bb422 
0.0014931 



ALF1N 
0.0050637 
0 .00 1494B 
0.0108774 
0.0095407 



TOTAL 



0.011115 



SECTION 

1 



0.004800 0.015915 " 

PITCHING MOMENT 



0.0000269 0.0000419 



Y CMG CMMU 

0.975000 -0.002250 0.000000 

0.8B7500 -0.004613 0.000000 

0.687500 -0.01623b -0.017453 
0.275000 -0.001892 0.000000 



CMT 
0.000000 
O. 000000 
0.001745 
0.000000 



CM 

■0.002250 

•0.004615 

•0.031944 

•0.001992 



0.0000025 O. 0000662 
.. LIFT CENTER 



( 3.0099999 



0. 0000785 



XCP/C 
0.467717 
0.499B47 
0 .662424 
0 .3491b5 



X CL/C 
0.467717 
0.499B47 
0.B02B27 
0.349165 



TOTAL -0.00619. -0.004900 0.000480 -0. 010515 (APEX) 

-0. 00241t -0.003600 0.000480 -0.006536 (XMC) 



0.557334 0.690835 (X/CREF) 

0.247704 0.30703B (X/B/2) 



** SP4NW1SE LOADING FOR FUNDAMENTAL CASE 4 









SECTION 

1 



Y 

0.975000 
0.BB7500 
O. 687500 



CLG 
0.040381 
0.065122 
Q . 086 6 05 



LIFT 
CLMU 
0.026180 
C.0261B0 
0.0261BC 



CL 

0.066561 
0.091302 
0 . 1 12785 



0.275000 0.100914 0.0261BO 0.127094 



CDG 
0.0003055 
0.0004685 
0.0005723 



CDMU 
0.0003427 
0.0003427 
0.0003427 



INDUCED DRAG 

CS CO 

0.0000147 0.0006335 

0.0000562 0.0007550 

0.0001472 0.0007678 



CMU 

1 .0000000 
1 .0000000 
1 .0000000 



0.0006315 0.0003427 0.0002580 0.0007162 1.0000000 



GAMMA 

0.0102552 

0.0165145 

0.0220219 

0.0257749 



ALFIN 

0.0554085 

0.0278858 

0.0145238 

0.0069B73 



TOTAL 



SECTION 

1 



0.089478 0.0261B0 0.115658 * 

PITCHING MOMENT 



0.0005785 



Y CMG 

O. 975000 -C.01B667 
0.897500 -0.029355 
0.687500 -0.037713 



CMMU 
•0. 0261BO 
•0.02biS0 
• 0 . 02 6 1 B 0 



0.275000 -0.042616 -0.026290 



CMT CM 

0.000000 -0.044847 
C.OOCOOO -0.055534 
0.000000 -0.063893 
0.000000 -0.06B796 



0.0003427 0.0001901 0.0007311 0.9999999 

lift center 



XCP/C 

0.4b2280 

0.450760 

0.435465 

0.422296 



XCL/C 

0.672778 

0.608249 

0.566507 

0.5412*6 



-0.038412 -0.026180 0.000000 -0.064592 

-0.01&043 -0.019635 0.000000 -0.035b78 



(APEX) 

(XMC) 



0.429293 

0.190797 



0.558475 

0.248211 



(X/CREF) 
(X/8/2 ) 



LIFT COEFFICIENT DERIVATIVE DUE TO PITCHING ABOUT XCG. CLQ = 0.08*478 

PITCHING MOMENT COEFFICIENT DERIVATIVE ABOUT ORIGIN OUE TO PITCHING ABOUT XCG- CMO = -0.03B412 
PITCHING MOMENT COEFF DERIVATIVE ABOUT XMC DUE TO PITCHING ABOUT XCG, CMQMC s -0.016043 

* TOTAL AEROOYNAMIC COEFFICIENTS * 



0 . 00072CB 





CASE 1 


CASE 2 


CASE 3 


CASE 4 


CASE 5 


CASE 6 


CASE 7 


CASE B 


CASE * 


CASE 10 


CCLG 


0.078*025 


0.02*5*41 


0.0111151 


0.08*4784 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0 . ooooooo 


CCLJ 


0.0174533 


0.0174533 


0. 0047*9q 


0.0261799 


0.0000000 


0.0000000 


0.0000000 


0 . ooooooo 


0.0000000 


0.0000000 


*» CCL 


0.0*63558 


0 . 0470474 


0 . 0 1 5 * 1 4B 


0.1 156583 


O.OOCOOCO 


O.OOOOCOO 


o .ooooooo 


c. ooooooo 


0.0000000 


0.0000000 


CCOG 


0.0013771 


0.0000000 


0 .000026* 


0.0005795 


0.0000000 


O.OOOOCOO 


0.0000000 


0.0000000 


0 .OOOOOOO 


0.0000000 


CCDJ 


0.0001522 


0 .C001523 


0.000041* 


0.0003427 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CCS 


0.0010010 


0.0000261 


0.0000025 


0.0001901 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0 . oooooco 


0.0000000 


CCD 


0 . C0052S5 


0.0001262 


0 . C00C662 


0.C00731 1 


0.0000000 


0 . oooooco 


0. OOOOOOO 


0.0000000 


0.0000000 


0 . ooooooo 


** CD1TZ 


0.0005049 


0.0001 167 


0.0000735 


0. 00072C8 


0 .0000020 


0.0000000 


0. OCOOOOO 


0 . oooooco 


o.oocoooo 


o. oooooco 


CCJ 


n . oqooqoq 


0 # OOGCQOO 


Q a bOQOQQQ 


0 OQQOQOO 


C .0000000 


0.0000000 


0.0000000 


O.OOOOCOO 


0.0000000 


0.0000000 


CCMG 


-0.0205160 


— C * 6 1 54580 


-0!00bl*49 


- 0 ." 0 3B4 1 24 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


c .ooooooo 


0.0000000 


CCMJ 


-0.0174533 


-0.0174533 


-0.0047*96 


-0.02617*9 


0.0000000 


0.0000000 


0 . ooooooo 


0.0000000 


0.0000000 


0.0000000 


CCMT 


0.0174533 


C. 0000000 


0. 0004500 


O.OOOOCOO 


o. oooooco 


0.0000000 


0.0000000 


0.0000000 


O.OOOOCOO 


0.0000000 


CCM 


-0.0205160 


-0.032*113 


-0.0105145 


-0.0645923 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0 . ooooooo 


CXCP 


0.2600171 


0.5223324 


0.5573345 


0.4292*2B 


0.0000000 


0.0000000 


0. OOOOOOO 


0.0000000 


0 . ocoocoo 


0. OCOOOOO 


CXCL 


0.3*40530 


0.6**5336 


0.6*08354 


0.5584753 


0 .ooooooo 


0 . ooooooo 


0.0000000 


0.0000000 


0 . ooooooo 


0.0000000 


CXCP8 


0.1155631 


0.2321477 


0.2477041 


0. I*079b7 


0.0000000 


o. ooooooo 


0. OCOOOOO 


0.0000000 


0.0000000 


o.coooooo 


CXCLB 


0.1751346 


0.310*038 


0.3070379 


0.2482112 


0 . ooooooo 


0.0000000 


O.COOOOOO 


0.0000000 


0.0000000 


0.0000000 


CCMGMC 


-0. 0007904 


-0.00305*4 


-0.0034161 


-0.0160428 


o . ooooooo 


0.0000000 


0.0000000 


0 . oooooco 


o.ooocooo 


0.0000000 


CCMJMC 


-0.0130*00 


-0.0130900 


-0.0035**7 


-0. 01*o350 


0.0000000 


O.OOOOCOO 


0.0000000 


0.0000000 


0 . ooooooo 


0.0000000 


CCMTMC 


0.0130900 


0.0000000 


0.0004900 


0.0000000 


0.0000000 


0.0000000 


0 . ooooooo 


0.0000000 


0.0000000 


0.0000000 


»» CCMMC 


-0.0007*04 


-0.02114*4 


-0. 00b5358 


-0.0356778 


0 .oooooco 


0.0000000 


0.0000000 


0.0000000 


o.oocoooo 


0.0000000 


CLLG 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


o .ooooooo 


0.0000000 


o .ooooooo 


0.0000000 


O.OOOOCOO 


0.0000000 


CLLJ 


0.0000000 


0.0000000 


0. OCOOCOO 


0.0000000 


0.0000000 


0.0000000 


0 .OCOOOOO 


o.oocoooo 


O.OCOOOOC 


0 .OCOOOOO 


* CLL 


0.0000000 


0.0000000 


0.0000000 


0 .0000000 


0.0000000 


0 . ooooooo 


0.0000000 


0.0000000 


0 . ooooooo 


o.oocoooo 


CNJ 


0 . oooooco 


0 .0000000 


0.0000000 


0.0000000 


0.0000000 


0 .ooooooo 


0.0000000 


0 .ooooooo 


0.0000000 


0.0000000 


« CN1MC 


0.0000000 


o. ocoocoo 


o.oocooco 


0 . 0000000 


0 . ooooooo 


o.coooooo 


0.0000000 


o.coooooo 


O.OOOOCOO 


O.OOOOCOO 


* CCY 


0 . 0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


O.OOOOCOO 


0.0000000 


0. OCOOOOO 


0.0000000 


0.0000000 


CPGR 


0.0358227 


0 .0134b40 


0.0067121 


0.04C3300 


O.OOOOCOO 


O.OOOOCOO 


0.0000000 


O.OOOOCOO 


0.0000000 


0.0000000 


CEGL 


0.0358227 


0.0134640 


0.0067121 


0. 04CB300 


0.0000000 


o.coooooo 


o.ooocooo 


0.0000000 


O.OOOOCOO 


0 . oooooco 


CB JR 


0.0087266 


0.0087266 


0 .0032**9 


0.0130*00 


o.ocooooc 


o .ooococo 


0.0000000 


o.ooocooo 


O.COOOOOO 


0.0000000 


CBJL 


0 . 008 72 6 6 


0 .0C872o6 


0 . 0032 **B 


0.0130*00 


0.0000000 


o.coooooo 


0.0000000 


c .ooooooo 


c .ooooooo 


0.0000000' 


CER 


0.0445494 


0 .022190b 


0.0100119 


0.053*200 


0 . oooooco 


O.OOOOCOO 


o . ooooooo 


0.0000000 


0.0000000 


O.OOOOCOO 


CEL 


0 . 0445494 


0 .022190b 


0 . C 1 00 1 1 9 


0 .C53*200 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0. OOOOOOO 


0. OOOOOOO 


CPMER 


0.4623422 


0.4716644 


0.6290*10 


0 . 4b62009 


0.0000000 


0.0000000 


0.0000000 


0 .OOOOOOO 


0.0000000 


0.0000000 


CPMEL 


0.4623422 


0 .47 lbb44 


0.6290*10 


0.4662C0* 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 



* CHORDWISE LOAOING FOR COMPOSITE CASE 1 « 

FUNDAMENTAL CASE FACTORS 

A ( 1 ) A(2 ) A( 3 ) A ( 4 ) A(5) A(6) A(7) A (B ) A(9) 

0.000000 10.000000 10.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 
««« NOTE *** EACH LEAOING EDGE CP VALUE IS THE AVERAGE VALUE OF THE SINGULAR DISTRIBUTION 
DO NOT PLOT THESE LOADING POINTS DIRECTLY 



WING 

XB 






SECTION 1 


Y - 0.975000 CHORD s 0.444444 


0.000000 


o.iooooo 


0.200000 


0.500C00 0.900000 


CP(A=0) 


0.219927 


0.141560 


0.108940 


0.110104 0.211551 


CP (As 1 ) 


0.129570 


0.062479 


0.036113 


0.016367 0.007476 


JET 


XB 


1.000000 


1.100000 


1.500000 


3.000000 


CP ( As 0 ) 


0.626244 


0.1 15B51 


0.018450 


0.001371 


CP ( A= 1 ) 


0 . 005 IB 7 


0.003301 


0.001203 
SECTION 2 


0.000202 

Y s 0.BB7500 CHORD = 0.444444 


WING 


XB 


0.000000 


0.100000 


0.200000 


0.500000 0.900000 


CP ( As 0 ) 


0.34*322 


0.251131 


0. 1*5344 


0.20C600 0.3B7550 


CP(A=1 ) 


0. 1B5800 


0.107433 


0.064708 


0.029236 0.012979 


JET 


XB 


1 .000000 


l .looooo 


1 .500000 


3.000000 


CP (A= 0 ) 


0.792271 


0.205030 


0.02*4*1 


0 . 00 IB 6 7 


CP ( As 1 ) 


O.OOBB77 


0 .00549B 


0. 001876 
SECTION 3 


0.0002B7 

Y = 0.6B7500 CHORD = 0.444444 


WING 


XB 


0.000000 


0.100000 


0.200000 


0.500000 O.BOOOOO 0.900000 



A ( 1 0 ) 
0.000000 



99 



CPCA=C ) 


0.491335 


0 .362287 


0.287007 


0.312489 


0 . 6021 65 1.212604 


CP ( As 1 } 


0 . 2307 60 


0. 140897 


0 . 089584 


0.044098 


0.025 U7 0.C20025 


JET 


XB 


I .OOOOCO 


1 . 100000 


1 .50CC00 


3 . 0000 00 




CP(A=0) 


1.026/41 


0.305251 


0 . 04 C 9 7 9 


c.cc: i°o 




CPCA=1 ) 


0.013AU 


0 .008228 


C .002674 
SECTION 4 


0 .00C24S 
Y = 0.2 


75000 CHORD = 0.444444 


WING 


XB 


O.COOOOO 


0.100000 


0.200000 


0.500000 


0.900000 


CPCA = C ) 


0 . 55 7 6 ° 3 


0 . 3°°3 60 


0.30466° 


0 .256222 


0.297606 


CP C A = 1 ) 


G . Co 1 2 9 7 


0.162281 


C.1C5208 


0.054022 


0.025306 


JET 


X8 


1.000000 


1.100000 


1 .500000 


3.000000 




CP(A = 0 ) 


0.803748 


0.220025 


0.C42223 


0 . 00 2 CCS 




CP ( A= 1 ) 


0.017243 


0.010686 


0.003524 


0.000402 





- COMPOSITE CASE 1 « 



FUNDAMENTAL CAGE factors 





A ( 1 ) 


ACC ) 


A ( 3 ) 


A ( 4 ) 


ACS) A ( 6 ) A ( 7 ) 


A (8 ) A(9) 


A ( 1 0 ) 








0.000000 


10.000000 


10.000000 


0.000000 


0.000000 0. OOOOCO O.OCOOOO 


0.000000 0.000000 


0. 


000000 
















* N 


PITCHING 


MOMENT 




ft 


. .. LIFT CENTER . . . 


SECTION 


Y 


CLGO 


CLMUO 


CLO 


ft ft 


CMGO CMMUO 


CMTO CMO 




ft 


XCPO/C 


XCLO/C 






CLGA 


CLMja 


CLA 


* ft 


CM3A CMMUA 


CMTA CMA 




ft 


XCPA/C 


XCLA/C 


1 


0.975000 


0.180673 


0.174533 


0.255206 


ft ft 


-0.100846 -0.174533 


O.COOOOO -0.275379 




ft 


0.558167 


0.775265 






0.034284 


0.017452 


0.051737 




-0.007640 -0.017453 


0.017452 -0.007640 




ft 


0.222834 


0.485007 


2 


0.88 7500 


0.305825 


0.174523 


0.480258 




-0 . 16o°54 -0 .1 74523 


0.000000 -0.341487 




ft 


0.545914 


0.710901 






0. C56186 


0.017452 


0.073639 


ft ft 


-0.012420 -0.017453 


0.017453 -0.012420 




ft 


0.258857 


0.419256 


3 


0.687500 


0.529559 


0 .24«C66 


0.878625 


ft ft 


-C. 2 12977 -0.349066 


0.C1 7453 -C. 645590 




ft 


0 .5 Q 2°C4 


0.754628 






0.076014 


0.017452 


0.092467 




-0 . 01°453 -0.017453 


0.017453 -0.C19453 




ft 


C. 255912 


0.394857 


4 


0.275000 


0 . 289459 


0.174522 


0 . 562 Qa 2 


ft ft 


-0. 189587 -C. 174523 


O.COOOOO -0.364120 




ft 


0.486797 


0.645612 






0.089566 


0.017453 


0.107019 




-0.022331 -0.017453 


0.017453 -0.022831 




11 


0 .266070 


0.385763 




TOTAL 


0.407093 


0.222529 


0.629622 


ft ft 


-0.216523 -0.222529 


C.00480C -0.424258 


(APEX) 


0.531889 


0.697235 






0 .078903 


0.0 17453 


0.096256 


ft ft 


-0 .020516 -0.017453 


0.C17453 -0.020516 


(APEX) 


0.260017 


0.394053 












ft ft 


-0.1 14755 -0. 16&897 


0.004800 -0.276852 


( XMC ) 


0.236295 


0.309927 












ft ft 


-0.000790 -0.012090 


0.013090 -0.000790 


(XMC) 


0.115563 


0.175125 



SECTION 


Y 


CDGO 


CDMUO 


CSO 


C20 


GAMMAO 


alfino 


CTO 


CMU 






CDGX 


CDMUX 


CSX 


C2X 














cdga: 


CD*UA2 


CSA2 


CDA2 


GAMMA2 


ALFINA 






1 


0.975000 


0.0000000 


0.0152309 


0 . 0008 442 


0.0142867 


0.0582766 


0.3064195 


0.9856123 


1.0000000 






0 . 0 C 3 1 5 2 3 


0 .00204*2 


0 . 0 0 09 °4 7 


0.0052048 














0 .00C5934 


0.0001522 


C.00C2920 


0.0004577 


0.0CS2369 


0.0430782 






2 


0.887500 


0 .OOCOCOO 


0.015220° 


0 . 0 02 1 2° 7 


0.0131011 


0.0°S5214 


0.1378922 


0.9868989 


1. OOOOOCO 






0.0053' 77 


0 .00204&2 


0.0022656 


0 .C0b1182 














0.000°: 6 


0.0001523 


0 . 0 0 0 6 025 


0.0005304 


0.0134614 


0.0219981 






3 


0.687500 


0. C 1 954_0 


0.0609225 


0 .0042134 


0 . 07 625 1 9 


0 .1560372 


0 . 1 604044 


0.9237481 


1.0000000 






0 . 0 0 a 5 34 3 


0.0060°23 


0.0029577 


0.0116690 














0.0012267 


0.0001523 


0.0009294 


0.0CC5496 


C. 0182760 


C. 0120724 






4 


0.275000 


0 . OOOOOCO 


0. 0152209 


0.0054284 


0 . 0 C 98 025 


0.1184530 


0. 1174A80 


0.9901975 


1.0000000 






0.0067973 


0.0020462 


0.0050867 


0.CC47568 














0 .C015o32 


0 . 0001522 


0.0011916 


0.0005259 


0 . 021 67°2 


0.0065520 








TOTAL 


0.0053740 


0.0277962 


0.00-4527 


0.0287176 




0 .0451802 


0.9712823 


0.0999909 






0.0071854 


0. 0038839 


0.0042190 


0.0068502 




0.C101437 










0.0013771 


0.0001523 


0.0010010 


0 . 00052S5 




0 . 0CC504 9 







- total AERODYNAMIC COEFFICIENTS - 



CCLG 


0 .4 07 C°3 


0.073903 




CCLJ 


0.222529 


C.C174S5 




«« CCL 


0 . 62 °622 


0 .0°635e 




CCDG 


0.0053740 


0.0071954 


0.0013771 


CCCJ 


0.02779o3 


0.0038339 


0.00C1523 


CCS 


0 .CC44527 


0.0042190 


0.0010010 


CCD 


0.0287176 


0. 00o8502 


0 . 00C5285 


CDIT2 


0.C4518C2 


0.0101427 


0.0005049 


*•* CCJ 


0,0000000 






CCMG 


- 0 ! 2 1 6528 


- 0 . 0205 1 6 




CCMJ 


-0.222529 


-0.017453 




CCMT 


0.004300 


0.017453 




CCM 


-0.434258 


-0.02C5U 




CXCP 


0.531889 


0.260017 




CXCL 


0 .697325 


0.394CS3 




CXCP3 


0.236295 


0.115563 




CXCLB 


0 . 3 0 9 °2 7 


0. 175125 




CCMSMC 


-0 . 1 14755 


-0 . 000790 




CCMJMS 


-0. 1 6 68 0 7 


-0.01 30°0 




ccmtmc 


0. C04£C0 


0 .01 209C 




CCMMC 


-0.276852 


-0.000790 




CLLG 


0.000000 


O.OCOOOO 




CLLJ 


0.000000 


0.000000 




- CLL 


o.coccoo 


0.000000 




CNJ 


O.COOOOO 






* CNIMC 


O.OCOOOO 


0.000000 


0.000000 


- CCY 


0 .000000 


0 . 000000 


0.000000 


CBSR 


0.201760 


0.C25S23 




CEGL 


0.201760 


0.035623 




C8JR 


0 .120264 


0 . 008 72 7 




CEJL 


0. 12C264 


0.008727 




CBR 


0.322024 


0 .04A549 




CEL 


0.322024 


0.04454° 




CPMBR 


0.511457 


0.462342 




CPMBL 


0.511457 


C.4b2342 




- 


TA8ULATED TOTAL 


COEFFICIENTS FOR 


COMPOSITE CASE 1 « 



ALPHA 




CCL 


CCL**2 CCM(MC) 


CLL 




CD I TZ 


CCT 


CN1 


CN 


CCY 


■10.000000 


ft 


-0.3339359 


0.1115131 -0.2b8°48S 


0.0000000 


ft 


-0.0057628 


1.0057621 « 


0.0000000 


0.0000000 


0.0000000 


-9.000000 


ft 


-0.2375801 


0.0564443 -0.2697389 


0.0000000 


ft 


-0.0052130 


1.0CS2128 - 


0.0000000 


0.0000000 


0.0000000 


-8 .000000 


ft 


-0.1412243 


0 . 0 1 ° °44 3 -0.2705293 


0.0000000 


ft 


-0.0036523 


1.0036526 » 


0.0000000 


0.0000000 


o.coooooo 


-7.000000 


ft 


-0.0448685 


0.0020132 -0.2713196 


0. OOOOOCO 


ft 


-0.0010337 


1.0C10834 » 


0.0000000 


o.ocoocoo 


0.0000000 


-6.000000 


ft 


0.0514873 


0.0026509 -0.2721100 


0.0000000 




0.0024958 


0.9975042 » 


0.0000000 


0.0000000 


0.0000000 


-5. OOOOCO 


ft 


0.1478431 


0.0218576 -0.2729004 


0.0000000 




0.007 0S5 1 


0.9929148 “ 


0.0000000 


0.0000000 


0.0000000 


-4.000000 


ft 


0.2441989 


0.0596231 -C. 2736908 


0.0000000 




0.0126844 


0.9873155 « 


0.0000000 


0.0000000 


0.0000000 


-3.000000 


ft 


0.3405547 


0. 1159775 -0.2744812 


0.0000000 


ft 


0.0192925 


0.9807064 * 


0.0000000 


0. ooocooo 


0.0000000 


-2.000000 


ft 


0.4369105 


0. 1°C8907 -0.2752715 


0.0000000 


ft 


0.0269125 


0.9720874 « 


0.0000000 


0.0000000 


0.0000000 


-1.000000 


ft 


0.5232662 


0.2843729 -0.2760619 


0.0000000 


ft 


0.0355414 


0.9644585 ■ 


0.0000000 


0.0000000 


0.0000000 


0.000000 


ft 


0.62 e >6220 


0.2°64229 -0.2763522 


0.0000000 


ft 


0.0451802 


0.954S197 « 


0. ooocooo 


0. OOOOOCO 


0.0000000 


1 .000000 


ft 


0.7259778 


0.5270428 -0.2776427 


o.ooccooo 


ft 


0.0558289 


0.9441710 » 


0.0000000 


0. OOOCOOO 


0.0000000 


2.000000 


ft 


0.8222336 


0.6762226 -0.2784330 


0.0000000 


ft 


0.0674874 


0.9325125 « 


0.0000300 


0.0000000 


0.0000000 


3.000000 


ft 


0 .9186894 


0.8439903 -0.2792224 


0. OOOOOCO 


ft 


0 . CSC 1553 


0.9199441 « 


o.ccooooo 


0.0000000 


o.cooccoo 


4.000000 


ft 


1 .0150452 


1.0302164 -0.2800128 


0.0000000 


ft 


0.0923242 


0.9061657 - 


0.0000000 


0.0000000 


0.0000000 


5.000000 


ft 


1 . 1114006 


1.2352104 -C. 2808042 


0.0000000 


ft 


0.1085224 


0.8914775 « 


0. OOOOOCO 


C. 0000000 


0.0000000 



100 



6.000000 


* 


1 .2077560 


1.4586744 -0.2815945 


0.0000000 


¥ 


0.1242206 


0 .8757794 


¥ 


0.0000000 


0.0000000 


0.0000000 


7 . 0 0 CO 0 0 


¥ 


1 .3041124 


1 .7007084 -0.2823849 


0.0000000 


¥ 


0 . 1409285 


0.8590714 


¥ 


0.0000000 


0 .0000000 


0.0000000 


8.000000 


¥ 


1 .4004679 


1 .961 30*>4 -0.2831753 


0.0000000 


¥ 


0 . 1586464 


0 .841 3535 


¥ 


0.0000000 


0.0000000 


0.0000000 


9.C0CC00 


¥ 


1 .4068233 


2.24047^5 -0.283o t 56 


0.0000000 


¥ 


0.1773741 


0.8226258 


¥ 


0.0000000 


0.0000000 


0.0000000 


10 .OOCOGO 


¥ 


1 .5931'97 


2 . 53S22 1 4 -C. 28^7561 


0. oooocoo 


¥ 


0.1971119 


0.8028882 


¥ 


0.0000000 


0 .0000000 


o.ooooooc 


11.000000 


¥ 


1 .68 a 5351 


2 .8545284 -0 .26554 c 4 


0.0000000 


¥ 


0.21785°3 


0.7821407 


¥ 


0 . 0000000 


0.0000000 


0.0000000 


12.000000 


h 


1.7853906 


3.1804045 -0 . 2S63368 


0 . oooocoo 


¥ 


0.2396168 


0. 7b03832 


¥ 


0.0000000 


0 .oocoooo 


0.0000000 


13.COCOOO 


¥ 


1.8822460 


3.5428495 -0.2871272 


0.0000000 


¥ 


0.2623841 


0.7376159 


¥ 


0.0000000 


0 . ocooooo 


o.ocooooo 


14 . OOOCOO 


¥ 


1 . 9 78 e 024 


3. 914g 0 74 -0.2879176 


0.0000000 


¥ 


0.2861612 


0.7138388 


¥ 


0.0000000 


0 .0000000 


0 . oooooco 


15.000000 


¥ 


2 . 07^ 95 78 


4.3054495 -0. 2837079 


0 . 0000000 


¥ 


0.3109483 


0.689051b 


¥ 


0.0000000 


0 . 0000000 


o. coooooo 


lb .000000 


¥ 


2. 1713142 


4.7146053 -0.2394983 


c. oooocoo 


¥ 


0.3367453 


0 . 6o32546 


¥ 


0 . 0000000 


0.0000000 


c. oooocoo 


17.000000 




2 . 2676697 


5 . 1423254 -0.2902837 


0.0000000 


¥ 


0 . 3b3552 1 


0.6364478 


¥ 


0 . coooooo 


0.0000000 


o.ooocooo 


18.000000 


¥ 


2.364C251 


5.5836145 -0. 29107*0 


0.0000000 


¥ 


0.3913689 


0-6 C8 631 1 


¥ 


o. oooocoo 


0.0000000 


0 . oooocoo 


19.000000 


¥ 


2.4603815 


6.0834763 -0.2918684 


0.0000000 


¥ 


0.4201 °S5 


0.5798045 


¥ 


0 . oooocoo 


0.0000000 


0.0000000 


20.000000 


¥ 


2.55b73o9 


6 . 53b9034 -0.292 q598 


0. OOOOO00 


¥ 


0.4500320 


0.5499679 


¥ 


o .oooocoo 


0.0000000 


0.0000000 


21.000000 


¥ 


2 . 6530°24 


7 . 0388 °85 -0 .2934502 


0.0000000 


¥ 


0.4808784 


0.5191215 


¥ 


0.0000000 


0.0000000 


0.0000000 


22.000000 


¥ 


2 . 74 c 4498 


7 . 55 94 68 3 -0.2942405 


o.ooooooc 


¥ 


0.5127347 


0.4872653 


n 


0.0000000 


c. oooooco 


0.0000000 


23.000000 


¥ 


2.8458042 


8.0986013 -0. 2«50310 


0.0000000 


¥ 


0.5456008 


0.4543991 


¥ 


0.0000000 


0.0000000 


0.0000000 


24.000000 


¥ 


2.9421606 


8 . 6563082 -0.295821 3 


0.0000000 


¥ 


0 . 5 7 Q 4769 


0.4205230 


¥ 


0.0000000 


0.0000000 


0.0000000 


25.000000 


¥ 


3 . 0385 1 60 


9.2325792 -0.2°66117 


0.0000000 


¥ 


0.6143628 


0.3856372 


¥ 


0.0000000 


0.0000000 


0.0000000 


26.000000 


¥ 


3.1348715 


9.8274133 -0.2074021 


o.ocooooo 


¥ 


0.650258b 


0.3497413 


¥ 


0.0000000 


0.0000000 


0.0000000 


27.000000 


¥ 


3.2312279 


10.4408331 -0.2081924 


0.0000000 


¥ 


0.6871643 


0.312835b 


¥ 


0.0000000 


0 . 0000000 


0 .0000000 


28.000000 


¥ 


3.3275833 


11 .0728102 -0.2989828 


0.0000000 


¥ 


0.7250799 


0.2749200 


¥ 


0.0000000 


0.0000000 


0.0000000 


29.000000 


¥ 


3.4239388 


1 1 .7233562 -0.2997732 


0.0000000 


¥ 


0.7640054 


0.2359945 


¥ 


o.ooooooc 


O.OOO00O0 


0.0000000 


30.000000 


* 


3.5202951 


12.3924770 -0.3005b36 


0.0000000 


¥ 


0.8039407 


0.1960592 


¥ 


0.0000000 


0.0000000 


0.0000000 



* SECOND RUN FOR STABILITY DERIVATIVE CASE * 
TASILITY DERIVATIVE DATA FOR FUNDAMENTAL CASE 1 



ROLLING MOMENT COEFFICIENT DERIVATIVE DUE TO YAWING, CLLR = 0.0001168 

YAWING MOMENT COEFFICIENT ABOUT XMC DUE TO YAWING ABOUT XCG , CN(R) MAY BE CALCULATED AS FOLLOWS 

CN(R) = CNR *R ♦ CNR2 “R * *2 

WHERE CNR = 0.000001049 

CNR2 = 0.0000000 

SIDE FORCE COEFFICIENT DUE TO YAWING, CY(R) MAY BE CALCULATED AS FOLLOWS 

CY (R 1 = CYR *R ♦ CYR2*R 4 *2 

WHERE CYR = 0.000000000 

CYR 2 s 0.0000000 

* stability derivative data for FUNDAMENTAL CASE 2 * 



ROLLING MOMENT COEFFICIENT DERIVATIVE DUE TO YAWING, CLLR * 0.0000436 

YAWING MOMENT COEFFICIENT ABOUT XMC DUE TO YAWING ABOUT XCG. CN(R) MAY BE CALCULATED AS FOLLOWS 

CNCR) s CNR *R * CNR2“R**2 



WHERE CNR = 
CNR2 = 



0.000000034 

0.0000000 



SIDE FORCE COEFFICIENT DUE TO YAWING. CY(R) MAY BE CALCULATED AS FOLLOWS 
CY C R ) = CYR *R ♦ CYR2*R 44 2 



WHERE CYR = 
CYR2 = 



0.000000000 

0.0000000 



stability derivative DATA FCR FUNDAMENTAL case 3 



ROLLING MOMENT COEFFICIENT DERIVATIVE DUE TO YAWING. CLLR = 0.0000344 

YAWING MOMENT COEFFICIENT ABOUT XMC DUE TO YAWING ABOUT XCG. CNCR) MAY BE CALCULATED AS FOLLOWS 

CNCR) = CNRvR + CNRS^R^C 

WHERE CNR = -0.000000100 

CNR2 = 0.0000000 

SIDE FORCE COEFFICIENT DUE TO YAWING. CY(R) MAY BE CALCULATED AS FOLLOWS 

CYCR) s CYR"R ♦ CYR2*R**2 

WHERE CYR = 0.000000000 

CYR2 = 0.0000000 

" STABILITY DERIVATIVE DATA FOR FUNDAMENTAL CASE 4 * 

ROLLING MOMENT COEFF DERIVATIVE DUE TO ROLLING, CLLP = -0.0066949 

YAWING MOMENT COEFFICIENT ABOUT XMC DUE TO ROLLING, CNCP) MAY BE CALCULATED AS FOLLOWS 

CNCP) = CNP2»*P«*2 
WHERE CNP2 = 0.0000000 

SIDE FORCE COEFFICIENT DUE TO ROLLING. CYCP) MAY BE CALCULATED AS FOLLOWS 
CYCP) = CYP2 *P" *2 
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WHERE CYP; 



0.0000000 



** STABILITY depivative data for COMPOSITE 



1 - 



FUNDAMENTAL case factors 

AC1) A ( 2 ) A(J) AtO A(5) A(6) A( 7 ) A(8I A(9) A(10) 

0.000000 I0.00000C 10.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 

LIFT COEFFICIENT DERIVATIVE DUE TO PITCHING ABOUT XCG. CLC = 0.089478 

PITCHING MOMENT COEFFICIENT DERIVATIVE ABOUT ORIGIN DUE TO PITCHING ABOUT XCG. CMQ s -0.038412 
PITCHING MOMENT COEFF DERIVATIVE ABOUT XMC DUE TO PITCHING ABOUT XCG. CMQMC * -0.016043 

ROLLING MOMENT CCEFF DERIVATIVE DUE TO ROLLING. CLLP = -0.00b6949 



YAWING MOMENT COEFFICIENT ABOUT XMC DUE TO ROLLING- CN(P) MAY BE CALCULATED AS FOLLOWS 

CN(P) = CNP-P ♦ CNP2 *P * *2 
WHERE CNP = CN D 0 ♦ CNPA* ALPHA 
CNP 0 s -0.0003531 
CNPA * -O.OOOOoOl 
CN°2 * 0. 0000000 

SIDE FORCE COEFFICIENT DUE TO ROLLING. CY(P) MAY BE CALCULATED AS FOLLOWS 
CY(=M = CYP**P ♦ CYP2*‘P«*'2 
WHERE CYP = CYPO ♦ CYPA^ALPHA 
CYPO = 0.0000000 

CYP A = 0.0000000 

CYP2 * O.OOOCOOO 

ROLLING MOMENT COEFF DERIVATIVE DUE TO YAWING ABOUT XCG. CLLR MAY BE CALCULATED AS FOLLOWS 

CLLP * CLLR 0 * CLLRA*ALPHA 
WHERE CLLRO = 0.0007805 

CLLR A = 0.0001 168 

YAWING MOMENT COEFFICIENT ABOUT XMC DUE TO YAWING ABOUT XCG. CN(R1 MAY BE CALCULATED AS FOLLOWS 

CNCR) = CNR "R ♦ CNR 2 *P * *2 
WHERE CNR = CNR 0 ♦ CNRA*»ALPHi ♦ CNRA2 “ALPHA* *2 
CNR 0 = -0.0000130 

CNPA s -0.0000035 

CNR A2 = O.OCOOOlO 

AND CNR2 = CNR20 ♦ CNR2A-ALPHA ♦ CNR2A2 * ALPHA* »2 
CNR20 = 0.0000000 

CNR2A = 0.0000000 

CNR2A2 = 0.0000000 

SIDE FORCE COEFFICIENT ABOUT XMC DUE TO YAWING ABOUT XCG* CY(R) MAY EE CALCULATED AS FOLLOWS 

ru^p 1 - rys ♦ rvD — * D w » — 

WHERE CYR = CYRO * CYRA* ALPHA*" ♦ CYRA2 * ALPHA- *-2 
CYRO = O.OOOOOO0 

CYRA = 0.0000000 

CYRA2 = 0.0000000 

AND CYR2 = CYR20 * CYR2A “ALPHA ♦ CYR2 A2 - ALPHA - -2 
CYP 20 = 0.0000000 

CYR2A s 0.0000000 

CVR2A2 = 0.0000000 









VARIATION OF 


STABILITY TERMS WI^H 


angle of a 


7TACK 












** 




*tt«#„ 






******* 


" 






ALPHA 




CNP 


CNP 2 




CYP 


CYP2 




CLLR 


CNR 


CNR2 


•10 .000000 


tt 


0 . 0002479 


0 .OCOOOOO 


tt 


0 . ooooooo 


0 .Ooooooo 


tt 


-0.0003880 


0.0001273 


0 .OOOOOOO 


-9.000000 


tt 


0.0001873 


O.OCCOOCO 


tt 


0. OCOOOOO 


0.0000000 


tt 


-0.0002712 


0.00C1038 


0. OOOOCOO 


-8 . 000000 




0.0001277 


0.0000000 


tt 


0.0000000 


0.0000000 


tt 


-0.00C1543 


0.0000824 


O.OOOCOOO 


-7.000000 




0.0000676 


0.0000000 


tt 


0.0000000 


O.OOOCOOO 


tt 


-0 . 0000375 


0.0000632 


0 . ooooooo 


-6.000000 


* 


0.C0C00'5 


0 . ooooooo 


tt 


0.0000000 


0.0000000 


tt 


0.0000794 


0 . 0000460 


c .ooooooo 


-5.000000 


* 


-0 .0000526 


C. 0000000 


tt 


0 . ooooooo 


0 .OOOOOO0 


tt 


0.0001962 


0.0000309 


0 . ooooooo 


-4.000000 


tt 


-0.0001127 


0.0000000 


tt 


o. ooooooo 


0.0000000 


tt 


0.0003131 


0.000017° 


0.0000000 


-3 . OCOCOO 




-0.0001728 


0 . oooocoo 


tt 


O.OOOCOOO 


O.OOOCOOO 


tt 


0 . 000429? 


0. 000007C 


o.oococoo 


-2.000000 


¥ 


-0.0002329 


0.0300000 


tt 


0 . ooooooo 


0.0000000 


¥ 


0.0005463 


-O.OOOC017 


o.oooocco 


-1.000000 


tt 


-0 .0002930 


O.OOOCOOO 


tt 


0 . ooooooo 


0. OCOOOOO 


* 


0 . OO06626 


-O.OOOOC84 


0.0000000 


0.000000 


¥ 


-0.0003531 


0. OOOOOOO 


tt 


0 .OOCOOC0 


0 . ooooooo 


tt 


0 . 00078C5 


-0.0000120 


0.0000000 


1 .oococo 


M 


-0.0004132 


0 .0000000 


tt 


o .ooooooo 


o.oooocco 


tt 


0 .0008973 


-0.0000155 


0 . ooooooo 


2.000000 




-O.OOOA733 


0.0000000 


w 


0.0000000 


0.0000000 


tt 


0.0010142 


-0.0000159 


0.0000000 


3.000000 




-0 . 00C5334 


o.cocooco 


tt 


0. OCOOOOO 


O.OOOCOOO 


tt 


0. 0011210 


-0.0000142 


0.0000000 


4 . 003000 




-0. 00C5925 


O.OOOCOOO 


tt 


0 . oooocoo 


0.0000000 


tt 


0 .001247* 


-0 .000010*. 


0. OCOOOOO 


5 .OCOOCO 




-0 . 000653d 


0.0030000 


tt 


0. OCOOOOO 


0. OCOOOOO 


M 


0.0013647 


-0.0000045 


0.0000000 


6 .000000 




-0.0007137 


0.0000000 


tt 


0.0000000 


0. OOOO0CO 


tt 


0.0014815 


0.0000025 


0 . ooooooo 


7.000000 




-0 . 0007738 


o.occoooo 


tt 


0.0000000 


0. OOOOOO0 


* 


0.0015984 


0.0000126 


O.OOOCOOO 


8.000000 




-0. 0008339 


0 . occoooo 


tt 


0.0000000 


0 . oooocoo 


tt 


0.0017152 


0.0000258 


0.0000000 


9.000000 




-0 . O0 08 94 0 


0 . ooooooo 


tt 


0 . ooooooo 


0.0000000 


tt 


0.0018221 


0.000C4C1 


0. OOOOOOO 


10.000000 


¥ 


-0.00095-1 


o.occoooo 


tt 


o .ooooooo 


0.0000000 


tt 


0 . OC 1°489 


0.0000565 


0 . ooooooo 


1 1 . 000000 


tt 


-0.0010142 


o. ooooooo 


tt 


0.0000000 


0.0000000 


tt 


0.0020658 


0.0000750 


0. OCOOOOO 


12.000000 


tt 


-0.0010743 


o. ooooooo 


tt 


0 . OCOOOOO 


0.0000000 


tt 


0 .0021826 


0 . C000956 


0.0000000 


13.0000C0 




-0.0011344 


0.0000000 


tt 


0.0000000 


0.0000000 


tt 


0. 0022995 


C. 0001 182 


0 . oooocoo 


14.000000 


tt 


-0.0011945 


0 . ooooooo 


tt 


O.OOOCOOO 


0.0000000 


tt 


0.0024163 


O.O0C145O 


0 .ooooooo 


15.000000 


tt 


-0.0012546 


O.OOOCOOO 


tt 


0.0000000 


0 . oooocoo 


* 


0.0025232 


0 . 0001 o99 


o.ccooooo 


lo .000000 


V 


-0. 0013147 


0 . ooooooo 


tt 


0 . ooooooo 


o .ooooooo 


tt 


0.0026500 


0 .OOCl?3 a 


0 .00000CG 


17.000000 




-0.0013748 


0 . ooooooo 


« 


0 . ooooooo 


0 .ooooooo 


tt 


0 . 0027b6? 


0 . 00022°9 


O.OOOCOOO 


18 .000000 




-0.0014349 


0.0000000 


tt 


0.0000000 


0 . ooooooo 


tt 


0 . 0028327 


0 . 0002d2 1 


0 . OOOOOOO 


19.000000 




-0.0C14°50 


0 . ooococo 


tt 


0.0000000 


o. ooooooo 


tt 


0.0020006 


0.0002984 


0. OOOOOOO 


20 . 00C000 


tt 


-0 . CO 1555 1 


0. OCOOOOO 


tt 


0 . ooooooo 


0 . ooooooo 


tt 


0.0031174 


0.0003358 


0 .OOOOCOO 


21 .000000 


tt 


-0.0016152 


O.OOOCOOO 


tt 


o. ooooooo 


0.0000000 


« 


0.0032243 


0.0003752 


0.0000000 


22.000000 


tt 


-0.001675- 


0.0000000 


tt 


0.0000000 


0.0000000 


tt 


0.0032511 


0 . 0 004 1 08 


0.0000000 


23.000000 


tt 


-0.001735*. 


O.OOOCOOO 


N 


o. ooooooo 


0.0000000 


tt 


0.0034680 


0.0004604 


0.0000000 


24 .000000 


tt 


-0.0017955 


0.0000000 


tt 


0.0000000 


0 . ooooooo 


N 


0.0025848 


0 . 0005062 


0 . ooooooo 


25 .OCOOCO 


tt 


-0.001855D 


O.OOOCOOO 


tt 


o .ooooooo 


0 . ooooooo 


tt 


0.0C270I7 


0.0005541 


0.0000000 


2o. 000000 


tt 


-0.0019157 


0.0000000 


tt 


0.0000000 


0.0000000 


tt 


0.0038185 


0. 0006040 


0.0000000 


27.000000 


tt 


-0.0019758 


o. ooooooo 


« 


0.0000000 


0 .OOOOOOO 


tt 


0.0039353 


0.0006561 


0 .ooooooo 


28 .000000 


tt 


-0.0020259 


0.0000000 


tt 


0.0000000 


0.0000000 


tt 


0.0040522 


0.0007102 


o. ooooooo 


29.000000 


tt 


-0 . 0020960 


0.0000000 


tt 


0 . ooooooo 


0 . ooooooo 


tt 


0.00416°C 


0.0007665 


0.0000000 


30.000000 


tt 


-0.00215d1 


0.0000000 


* 


0 . ooooooo 


o. ooooooo 


« 


0.0042659 


0.0008248 


0.0000000 



« The PROGRAM has REACHED NORMAL 



TERMINATION • 



» THE PROGRAM HAS REACHED NORMAL TERMINATION - 
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JETFLAP INPUT DATA FILE TAPER.DAT 



TAPERED 


SWEPT WING, 


AR=8. 0, 


SWEEP ANGLE 


45, 10X10 


W/SEMI- 


CIRCLE SPACING 


50. 0000 


20. 000 


0 . 0 


10. 43 


10. 43 






1001000001020000 












. 993844 


. 969372 


. 921032 


. 850012 


. 758062 


. 647446 


.520888 .381504 


. 232726 


. 078217 












01010101010101010101 










10 














. 0 


. 024472 


. 095492 


. 206107 


. 345492 


. 5000 


.654508 .793893 


. 904508 


. 975528 












8. 0 
9 


45. 0 


0. 45 
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PROGRAM OUTPUT DATA FOR TAPER.DAT 



•* EVD JE~ - WING COMPUTER PROGRAM 



TAPERED SWEPT WING. AR=8.0. SWEEP ANDGLE AS, 10X10 W/SEM1-CIRCLE SPACING 



AREA = 
SPAN s 
CREF = 
XMC = 
CMAC - 
ARATIO = 
XCG = 



NROWS 

NCASE3 

1SVKM 

IPRINT 

JETFLG 

IGTVPE 

1HINGE 



USED 
0.500000 
2 . 000000 
0.261990 
1 . OA3COO 
0.2*1794 
8 .000000 
1 .043000 

10 

1 

0 

0 

1 



INPUT 

sc.oocooo 

CO. 000000 
0.000000 
10.430000 
2.617941 
8.000000 
10.430000 



10 

1 

0 

0 

1 



NUMBER OF WING ELEMENTS * 100 
NUMBER OF JET ELEMENTS = 0 

TOTAL NUM8ER OF ELEMENTS s 100 



ELEMENT GEOMETRY DATA AND FUNDAMENTAL CASE DATA FOR FUNDAMENTAL CASE 



« SECTION l »** Y = 0.993844 DELTA = 0. 006156 

1.197306 CHORD = 0.156340 TANLE = 1.047412 



XLEAD = 1.040966 XTRAlL 



WING ELEMENTS 

XB 
XI 
DEL 
EPS 
BET A 
Tvpc 
THIS R 
«*- SECT I CN : 
WING ELEMENTS 



NW = 10 
0.000000 
1 . 04 0 ° 66 
0.024472 
1 .000000 
0 .ocooco 
20 

U HAS NO JET 

0.969372 



WIST = 0.000000 

0.024472 0.095492 



1.0447 
0.071020 
1.000000 
0 .000000 
10 



1 .0558°5 
0.110615 
1 .000000 
0 .000000 
10 



.206107 
.073189 
.13=385 
. ooocoo 
.oocooo 
c 



0.345492 
1.094980 
0. 1545C8 
1.000000 
0.000000 
10 



NW = 10 



DELTA = 0.018316 XLEAD * 1.015334 



TWIST = 0.000000 



HL = 0.000000 



0.500000 
1 .119136 
0.154508 
1 .000000 
0.000000 
10 

XTRAlL = 
'A S = 



000000 
0.654508 
1 . 143292 
0.13®3S5 
1 .000000 
o . oooooo 
10 



0.793893 
1 .165083 
0.110615 
1 . 000000 
0. 000000 
10 



0.904508 
1 . 182277 
0.071020 
1 .000000 
0 . 000000 
10 



0.975528 
1 . 1 0 348 0 
0.024472 
1 .000000 
c.ccccoo 
10 



1.176315 CHORD 
.000000 



0. 160981 TANLE = 1.047412 



XB 


0.000000 


0.024472 


0 . 095492 


0.206107 


0.345402 


O.5000C0 


0.654508 


0 .793893 


0.904508 0.975528 


XI 


1 .015334 


1 .019272 


1 .030706 


1.048513 


1.070951 


1 .095824 


1 .120697 


1 .143135 


1.16 0 = 42 1.172375 


DEL 


0.024472 


0.071020 


0. 1 1 Ct»lS 


0. 13=285 


0.154508 


0.154508 


0. 13=385 


0.110615 


0.071020 0.02=472 


EPS 


1 .000000 


1 . OOOOOO 


1 . oooooo 


1 .OOOCOO 


1 . OOOOOO 


1 .OOOCOO 


1 .000000 


1 .000000 


1.000000 1. OOOCOO 


BE T A 


0 .000000 


0. OOCOOO 


o. oooooo 


0.000000 


0 .oocooo 


0 .OOCOOO 


0. OOOOOO 


C. OCOOCO 


0.000000 C.OOOCCC 


TYPE 


20 


10 


10 


10 


10 


10 


10 


10 


10 10 


, RCw 


HAS NO JET 
- Y = 0.92 


1032 DELTA 


= 0.03002 


4 XLEAD = 


0.964702 


XTRAlL = ] 


1.134851 i 


CHORD = 0. 


170140 TANLE = 1.047- 



WING ELEMENTS NW 
XB 

XI I 

DEu 

E D S 

BETA 

TYPE 

THIS ROW HA: 
*•»** SECTION 4 «** 
WING ELEMENTS 

X8 



thi: 

*** SECTION- 
WING ELEMENT 



10 

oocooo 

964702 

024472 

000000 

OOOOOO 



TWIST = 0.000000 



0. 

0. 

0 . 

1 .0 
0.0 
10 



024472 

9688*5 

071020 



NO JET 
= 0.850012 



O.C°5492 
0 . c 8 0 94 9 
C. 110615 
1.000000 
0 . oooooo 
10 



= 0.000000 



.206107 
. 000770 
.139385 
.OOOOOO 
.OOOOOO 
0 



0 . 345492 
1.02*487 
0.154503 
1 .OOOOOO 
0.000000 
10 



0.500000 
1 .040776 
0 .154508 
1 .000000 
0.000000 
10 



oooooo 
0. *54508 
1 . 076066 
0 . 139285 
1.000000 
0. O00000 
10 



0. 7938«3 
1 .0 = 9782 
0.110615 
1 .OOOCOO 

0 .oooooo 

1C 



0 . 9045 08 
1 .118603 
0.071020 
1.000000 
0 .oooooo 
10 



NW = 1 o 
0.000000 



DELTA = 0. 040996 



TWIST = 0. 00O0O0 

0.024472 0 . C®54°2 



XLEAD = 0.890314 XTRAlL = 

0. 0000C0 THETA S = 0 



HL 

0.206107 0 . 34549 , 



0.975528 
1 . 130*S? 
0.024472 
1 .OCOO00 
0 .OOOCOO 
10 

1 .047413 



1.073933 CHORD = 0.183618 TANLE 

,000000 

0.654508 0 . 7938=3 0. =04508 0.975528 



TKK 

SECTION 



this 

- SECTION 
0 . 7 0 1 624 



»«» SECTION 
WING ELEMENT: 



THU 

SECTION 



XI 


0.890314 


0.894808 


0.907848 


0 . 928159 


0.953753 


0.982123 


1.010494 


1 .036088 


1 .05639? 


1 .0c G 439 


DEL 


0 . 024472 


0.071020 


0.110615 


0.139385 


0 . 154508 


0 . 154503 


0.139385 


0.110615 


0.071020 


0.024472 


E D S 


1 . OOOOOO 


1 . OOOOOO 


1 .OOCOOO 


1 .oocooo 


1 . OOOOOO 


1 . OOOOOO 


1 .OOOOOO 


1.000000 


1 .OOOCCO 


1 . OOOCOO 


BETA 


0.000000 


0.000000 


0. OOCOOO 


0. OOOOOO 


0. OOOOOO 


0 . oooooo 


0. OOOOOO 


0. OOOOOO 


O.OOOOCO 


0 .OOCOOO 


TYPE 


20 


10 


10 


10 


10 


10 


10 


10 


10 


10 


1 ROW 


HAS NO JET 

* Y = 0.758062 DELTA 


= 0.050954 XLEAD = 


0.794005 


XTRAlL = 0 


.995062 CHORD = 0.2 


01057 TANLE 


= 1.047- 


XE 


NW s 10 
0.000000 


TWIST = 0. 

0.024472 


OOOOOO 
0 .095492 


HL = 0. OOOOOO THETA s = 0. OOCOOO 

0.206107 0.345492 0.500000 0.654508 


0 . 7 = 3893 


C. = 04508 


0.975528 


XI 


0.794005 


0 .7=8=25 


0.813204 


0.835444 


0 .863468 


0.894533 


0.925598 


0.953622 


0.975862 


C . =90142 


DEL 


C .024472 


0.071020 


0.110615 


0.139385 


0.154508 


0 . 154508 


0.139385 


0.110615 


0. 07 1020 


0. 024472 




1 . OOOOOO 


1 .OOOOOO 


1 .OOOOOO 


1 . OOOCOO 


1 . OOOOOO 


1 . OOOOOO 


1 . OOCOOO 


1 .000000 


1.000000 


1 . OCOOCO 


EETA 


0 . oooooo 


0 .000000 


0 .000000 


C .000000 


0.000000 


0.000000 


0.000000 


O.OOOOCO 


c .ocooco 


O.OOOOCO 


TYPE 


20 


10 


10 


10 


10 


1C 


10 


10 


10 


10 


1 ROW 

6 * * 


HAS NO JE T 

** V = C. 64744b DELTA 


= 0.059662 XLEAD = 


0.678144 


XTRAlL = 0, 


.900180 CHORD = 0.2 


2203* TANLE 


= 1.047- 


3 

XB 


NW = 10 

0 . oooooo 


TWIST = 0. 

0.024472 


oooooo 

0 . 095492 


HL = 0.000000 THETA S = 0. OOOOOO 

0.206107 0.345492 0.500000 0.654508 


0.793893 


0.904508 


0.975528 


XI 


0.678144 


0. 683577 


0.699346 


0 . 723907 


0.754856 


0.789162 


0. 823468 


0.854417 


0 8 78 Q 7 7 


C .894746 


DEl 


0.C24472 


0.C71020 


0.110615 


0.139335 


0. 1545C8 


0.154508 


0.15=385 


0.110*15 


0 . 071020 


0.024672 


EPS 


1 .000000 


1 . OOOOOO 


l.COOOCO 


1 . OOOOOO 


1.000000 


1.000000 


1 .OOOCOO 


1 . OOOOOO 


1. OCOOCO 


1 .OCOCOO 


beta 


0 .OOOOOO 


0. OOOOOO 


0 . oocooo 


0.000000 


0. OOOOOO 


0.000000 


0.000000 


0 . oooooo 


0.000000 


0. OOOOOO 


TYPE 


20 


10 


10 


10 


10 


10 


10 


10 


10 


10 


► ROW HAS NO JET 
7 • *> * Y = 0.520888 DELTA 

CHORD * 0.246038 TANLE * 

3 NW = 10 TWIST = 0. 

xs 0. OOOOOO 0.024472 


= 0. 066896 XLEAD = 0.545585 XTRAlL 

1.047414 

OOOOOO HL = 0.000000 THETA S * 0.000000 

0 . 0=54=2 0.206107 0.345492 0. 500000 0 . *54508 


0.793893 


0.904508 


0.975528 


XI 


0.545585 


0.55160 6 


0.5*9080 


0.596295 


0 . 6305=0 


0.668604 


0.706619 


0.740913 


C. 7*3129 


0.785*03 


DEL 


0.024472 


0.071020 


0.110615 


0. 1 3 = 385 


0.154508 


0. 154508 


0 . 13 9 385 


0.110615 


0.0/1020 


0.024472 


EPS 


1.000000 


l.COOOCO 


1 .000000 


1.000000 


1.000000 


1 . OOCOOO 


1.000000 


1 .OOOOOO 


1 .COOOO0 


l.COOOCO 


EETA 


0.000000 


0. OOOCOO 


0. OOOCOO 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


TYPE 


20 


10 


10 


10 


10 


10 


10 


10 


10 


10 


; ROW 

8 «« 


HAS NO JET 
'» Y = 0.3 


81504 DELTA 


= 0.072488 XLEAD = 


0.399593 


XTRAlL * 0 


.672066 CHORD = 0.2 


72473 TANLE 


= 1.047- 


rs 

XB 


NW e 10 
0.000000 


TWIST = 0. 

0.024472 


OOOOOO 

0.095492 


HL * 0.000000 THETA S * 0.000000 

0.206107 0 . 345492 0.500000 0.654508 


0.793893 


0.904508 


0.975528 


XI 


0.3995=3 


0 . 406260 


0.425612 


0.455751 


0.493730 


0.535829 


0.577929 


0.615907 


0.646047 


0.6653=8 


DEL 


0.024472 


0.071020 


0. 1 1 Co 15 


0.13=385 


0. 1545C8 


0.154508 


0 .139385 


0.110615 


0 . 0 7 1 020 


0.024472 


EPS 


1 .000000 


1.000000 


1 .000000 


1 .OOOOOO 


1 .OOOOOO 


1 .000000 


1 .OOOCOO 


1 .OOCOOO 


1 .oooooo 


1.000000 


8ETA 


0 .000000 


0. OOOCOO 


0. OOOOOO 


0.000000 


0. OOOOOO 


0.000000 


0. OOOOOO 


0.000000 


0.000000 


0 .OCOOCO 


TYPE 


20 


10 


10 


10 


10 


10 


10 


10 


10 


10 


; ROW 

9 «. 


HAS NO JET 
'* Y = 0.2 


32726 DELTA 


= 0.0762 


90 XLEAD r 


0.243760 


XTRAlL * 0 


.544450 CHORD = 0.300690 TANLE 


= 1.047- 


rs 

X8 


NW = 10 
0.000000 


TWIST = 0. 

0.024472 


OOOOOO 

0.095492 


HL = 0.000000 THETA S * 0. OOOOOO 

0.206107 0.345492 0.500000 0.654508 


0 . 7 Q 3893 


0.904508 


0.975528 


XI 


0.243760 


0.251119 


0.272474 


0.305735 


0.347646 


0 .394105 


0 .440564 


0.482476 


0.515737 


C.537C®2 


DEL 


C. 024472 


0.071020 


0.110615 


0. 13 9 385 


0 .154508 


0.154508 


0 .139385 


0.110*15 


0.071020 


0.024472 


EPS 


1.000000 


1.000000 


1 .OOOOOO 


1 . OOOOOO 


1 .oooooo 


1.000000 


1.000000 


1 .OCOOCO 


1.000000 


1.000000 


EETA 


0 . oooooo 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 . oooooo 


TYPE 


20 


10 


10 


10 


10 


10 


10 


10 


10 


10 



104 



THIS ROW 
***** SECTION 10 


HAS NO JET 
■>“ V = 0.' 


078217 DELTA 


= 0.0782 


19 XLEAD * 


0.081926 


XTRAIL = 0.411919 1 


CHORD = 0.32 


9993 TANLE 


= 1.047* 


WING ELEMENTS 

XB 


NW = 10 

0 .ocoooo 


TWIST = 0. 

0.024472 


000000 

0.005492 


HL = 0.000000 THETA S = 0.000000 

0.206107 0.345402 0.500000 0.654508 


0.793893 


0.904508 


0.975528 


XI 


0.081926 


0.090001 


0.113437 


0 . 140939 


0. 195®36 


0.246922 0.2=7909 


0 . 343905 


0.380407 


0.403843 


DEL 


0 . 024472 


0.071020 


0.110615 


0.139385 


0.154508 


0.154508 0.139385 


0.110615 


0.071020 


0.024472 


E ? S 


1.000000 


1.000000 


1 .000000 


1 .000000 


1 .000000 


1.000000 1.000000 


1.000000 


1.000000 


1 .000000 


BETA 


0.000000 


0.000000 


0 .000000 


0.000000 


0.000000 


C. 000000 0.000000 


0.000000 


0.000000 


0.000000 


TYPE 


20 


10 


10 


10 


10 


10 10 


10 


10 


10 


THIS ROW 


HAS NO JET 




«MK«K»y*MW 


yy yyyyy * yy * y 


yyyy«***y * 


yyyyyy y 









* SECTIONAL JET 8LOWING COEFFICIENTS 

MKMyHMMKMMMMMyKKMMMMMMMMMKMMMMMIIMliMftMMM 



ROW CMU 

1 0.000000 

2 0.000000 

3 0.000000 

6 0.000000 

5 0.000000 

6 0.000000 

7 0.000000 

8 0.000000 

9 0.000000 

10 0.000000 



WING 



WING 



* CHORDWI3E LOADING FOR ALL FUNDAMENTAL CASES * 

yyyyyyyyyy“yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy*yyyyy 









SECTION 


1 Y = 


0.993844 


CHCRD = 


0.156340 










I 


XB 


CASE 1 


CASE 2 


CASE 3 


CASE 4 


CASE 5 


CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


1 


0.000000 


0.565735 


0.000000 


0.000000 


0.000000 


0. 000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


2 


0.024472 


0.244147 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


3 


0 . 0®54 92 


0 . 0502=8 


0 .000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


4 


0.2061C7 


0.020919 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 .000000 


0.000000 


0.000000 


5 


0.345492 


0.011226 


0.000000 


0. OCOOOO 


0.000000 


o.ooocoo 


0.000000 


0.000000 


o.ooooco 


0.000000 


0.000000 


6 


0 .500000 


0.006413 


o.cooooo 


0 .000000 


0.000000 


0.000000 


0 . ocoooo 


o.ooooco 


0.000000 


0.000000 


0.000000 


7 


0.654508 


0.003731 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


8 


0.793893 


0.001994 


0 .000000 


0.000000 


0.000000 


0.000000 


0.000000 


o.ooooco 


o.ooocoo 


0.000000 


0.000000 


<5 


0 . 9045 08 


0.000927 


0.000000 


o.cooooo 


0 .000000 


0.000000 


o.ooocoo 


0 .000000 


0.000000 


o.cooooo 


0. 000000 


10 


0.975523 


0.000486 


0.000000 


0.000000 


0. 000CCQ 


o.cooooo 


0.000000 


0 . 000000 


0. 000000 


0.000000 


0.000000 



DETAILED LEADING EDGE LOADING 



1 0 . 0048 ®4 0.816745 

2 0.009789 0.543132 

3 0.014683 0.407101 

4 0.019578 0.315066 

5 0 . 024472 0.244147 



yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy 

* CHORDW1SE LOADING FOR ALL FUNDAMENTAL CASES * 



I 


X8 


CASE 1 


SECTION* 
CASE 2 


2 Y = 

CASE 3 


0*969372 * 
CASE 4 


CHORD = 
CASE 5 


0 .160981 
CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


11 


0.000000 


0.570113 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


12 


0 .024472 


0.320536 


C. 000000 


o.ooocoo 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 . oocooo 


0.000000 


13 


0.095402 


0. 126056 


0.000000 


0.000000 


0.000000 


0 .000000 


0.000000 


0.000000 


0. 000000 


0.000000 


0.000000 


14 


0.206107 


0 .Cb4432 


0.000000 


o.cooooo 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0. 000000 


0.000000 


15 


0.345402 


0 . 033466 


0 .000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


16 


C .500000 


0 . C 1 785 1 


0 .000000 


o.coccoo 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


o.ooocoo 


17 


0.654508 


0.010013 


0.000000 


0.000000 


0 . 000000 


0.000000 


0.000000 


0.000000 


o.ooooco 


0.000000 


o.ooooco 


18 


0.793893 


0. 00591 1 


o.cooooo 


0.000000 


0.000000 


o.ooooco 


0.000000 


0.000000 


0.000000 


0.000000 


0 . oocooo 


19 


0.904508 


0 .C03360 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 . ocoooo 


0.000000 


0.000000 


0.000000 


20 


C. 975523 


0.001583 


0.000000 


0.000000 


0.000000 


0.000000 


o.ooooco 


0.000000 


0.000000 


0.000000 


0.000000 


1 

4 

5 


0.004394 
0.00978® 
0.014683 
0 . 0 1 °5 78 
0 . C 244 72 


0.837965 
0. 57713t> 
0.454951 
C. 37730b 
0 . »>2 05 v 6 




DETAILED 


LEADING EDGE LOADING 













« CHORDWISE LOADING FOR ALL FUNDAMENTAL CASES * 



I 


X8 


CASE 1 


SECTION 
CASE 2 


3 Y = 

CASE 3 


0.921032 
CASE 4 


CHORD = 
CASE 5 


0 .170149 
CASE b 


CASE 7 


CASE 8 


CASE 0 


CASE 10 


21 


0 . 000000 


0.583867 


0.000000 


o.ooooco 


0.000000 


0.000000 


0 .000000 


0.000000 


0.000000 


0.000000 


0.000000 


22 


c.024472 


0.341116 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 .000000 


0.000000 


0.000000 


23 


0 . 09540^ 


0. 14=001 


0.000000 


o.ooooco 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


24 


0.206107 


0.084131 


0.000000 


o.cooooo 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


25 


0 . 34540 c 


0.055031 


0. 000000 


0 . 000000 


0. 000000 


0.000000 


0 .000000 


0.000000 


0.000000 


0 .oocooo 


0.000000 


26 


C.5C0000 


0 . 0 3 e>8 0 3 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 .000000 


O.OOOOCO 


0.000000 


■ o.ooooco 


27 


0 . b5 - 5 08 


0 . 02 3b 3 6 


0 . oocooo 


0.000000 


O.COOOOO 


0 . 000000 


0.000000 


0.000000 


0.000000 


c. 000000 


c . 000000 


23 


0.7938®3 


0.014871 


o.ooocoo 


c . 000000 


0.000000 


0.000000 


o.ooocoo 


0.000000 


0.000000 


O.OO0O00 


0.000000 


2 0 


0.904508 


0. 0C89LC 


0.000000 


o.cooooo 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


30 


0.975528 


0.004208 


0.000000 


o.ooocoo 


0.000000 


0. 000000 


0.000000 


0. 000000 


0.000000 


0.000000 


0 .000000 


3 

4 

5 


0.004894 
0.009789 
0. 014^33 
0.019578 
0.024472 


0 .86075 1 
0.596198 
0.473635 
0.396686 
0.341116 




detailed 


leading edge loading 
















« CHORDWISE LOADING FOR ALL FUNDAMENTAL CASES « 

yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy 



I 


X8 


CASE 1 


SECTION 
CASE 2 


4 Y = 

CASE 3 


0.850012 
CASE 4 


CHORD = 
CASE 5 


0.183618 
CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


31 


0.000000 


0.582747 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


32 


0.024472 


0.344834 


0.000000 


0.000000 


0.000000 


0.000000 


0 . 000000 


0.000000 


0.000000 


0.000000 


0.000000 


33 


0.095492 


0.156110 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


34 


0.206107 


0.090613 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


35 


0 .3^5492 


0.05°662 


o.ooooco 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


36 


0.500000 


0.043749 


0.000000 


o.ooocoo 


0.000000 


0.000000 


o.ooocoo 


o.ooocoo 


0.000000 


0.000000 


0 .000000 


37 


0.654508 


0.031802 


o.ooooco 


0 . oocooo 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


38 


0.793893 


0.022199 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


39 


0.904508 


0.014177 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


40 


0.975528 


0.006920 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


1 

4 

5 


0.004394 

0.009789 

0.014683 

0.019578 

0.024472 


0.859974 

0.596805 

0.475350 

0.399422 

0.344834 




detailed 


LEADING EDGE LOADING 













iniMkitHMilkitiMiitMitKtiKityiiiMtityoltDKyityKyititHKKittiMO 

* CHORDWISE LOADING FOR ALL FUNDAMENTAL CASES * 
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WING 



MING 



WING 



WING 



WING 



WING 









SECTION 


5 V = 


C. 758062 


CHORD = 


0.201C57 










I 


XB 


CASE 1 


CASE 2 


CASE 2 


CASE 6 


CASE 5 


CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


61 


0.000000 


0.571170 


0.000000 


o.ccoooc 


0 . coccoo 


o.ccocco 


0. ooooco 


0. ocooco 


0.000000 


0 .cococo 


0 .OOCOOO 


62 


0.026672 


0.339773 


0 .coccoo 


0 .ooooco 


0 .ooocoo 


0. ocoooo 


0 .ccocoo 


0.000000 


0. ooooco 


0.00000c 


o.cocooo 


63 


0.0*54*2 


0 .156167 


0.000000 


0 .ooooco 


0 .ococoo 


0 .cooooo 


o.cocooo 


0.000000 


0 .oooooo 


0 . OOCOOO 


o.ooocco 


66 


0 . 2 0 b 1 0 7 


0.0*1835 


0. cooooo 


o.ooocco 


0 . cooooo 


0 .000000 


0.000000 


0.000000 


0.000000 


0 .OOOOCO 


0 .ooooco 


65 


0 . 365602 


0 . 0 6 0066 


3.000000 


0 .000000 


0 .000000 


0 .ococoo 


0. coccoo 


0.000000 


0.000000 


o.ooocco 


o.ooococ 


66 


0 .5CC0C0 


0.066228 


0.000000 


o.cocooo 


0 .oococc 


0. ooooco 


0 .oooooo 


0. oooooo 


0. ocoooo 


0 .ooooco 


0.000300 


67 


0 . c 565 03 


0.033507 


c. ooocoo 


0 . ooooco 


c . oococo 


o.ooocco 


o.cocooo 


0 .ocooco 


0. ooocoo 


0. ooocoo 


c. ococoo 


68 


0 . 7 0 38 93 


0.026279 


c. cooooo 


0. ocoooo 


0 .ooooco 


o.ooocco 


0.000000 


0.000000 


0 .ocooco 


c. ooocoo 


0 .ooocoo 


6» 


0.906508 


0 .015937 


0. OOC0O0 


0 .ococoo 


O.CGOOCO 


0.000000 


c. oooooo 


0 .OOCOOO 


0.000000 


o.ooocco 


0 . ooocoo 


50 


0 . 0 755 28 


0.007778 


0.000000 


0. ocoooo 


0.000000 


c . oooooo 


0.000000 


0.000000 


0.000000 


0 .oooooo 


0 .cooooo 










DETAILED 


LEADING EDGE LOADING 












1 


0 . 0068 Q 6 


0.862268 




















2 


0. 009789 


0 .585662 




















3 


0 . 0 1 6 c8 3 


0.666981 




















6 


0.019578 


0.5*2*20 




















5 


0 . 026672 


0.329773 


























« CHORDWISE LOADING FOR ALL 


FUNDAMENTAL 


CASES * 
















SECTION 


6 vs 


0.667666 


CHORD = 


0.222036 










I 


XB 


CASE 1 


CASE 2 


CASE 3 


CASE 6 


CASE 5 


CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


51 


0.000000 


0.552733 


0.000000 


0. ooocoo 


0 . 000000 


0. cooooo 


0.000000 


0.000000 


0.000000 


0 .ooocoo 


0.000000 


52 


0.026672 


0.22*515 


0.000000 


0.000000 


0. COOOOO 


C .000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 .oococo 


53 


0 .095692 


0 .152388 


0. OOOCOO 


0 .000000 


0. OOCOOO 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


56 


0 .206107 


0.0*0126 


0.000000 


0 .ooooco 


0.000000 


0.000000 


0 .cooooo 


0 . oooooo 


0.000000 


0.000000 


0 .ooooco 


55 


0.365692 


0.058818 


0.000000 


0.000000 


0.000000 


0. oooooo 


0 . oooooo 


0.000000 


0.000000 


0.000000 


0.000000 


5b 


0. 500000 


0.063056 


0.000000 


c .ocoooo 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0. OOCOOO 


0. ooooco 


57 


0 . 6565 03 


0.022063 


0.000000 


0.000000 


0. cooooo 


0.000000 


0.000000 


0.000000 


0. OOCOOO 


o.ooocco 


0. ooocoo 


58 


0 . 7?38 c 3 


0 . 0262** 


0. cooooo 


0.000000 


0.000000 


0 . oooooo 


0. OOCOOO 


o.occooo 


0. OOOOCO 


0.000000 


0. ocoooo 


59 


C. 906508 


0 . 0 1 d 02b 


0.000000 


0.000000 


0. ocoooo 


0 . ooooco 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


60 


0 .*75528 


0.007*63 


0 .ocooco 


0.000000 


0.000000 


0.000000 


0.000000 


0. oooooo 


0.000000 


0.000000 


0.000000 










DETAILED 


LEADING EDGE LOADING 












I 


0 .006896 


0.8161 71 




















2 


0 .009789 


0.567062 




















3 


0.016683 


0.652233 




















6 


0.0195' 8 


0.280806 




















5 


0.026672 


0.22*515 


























- CHORDWISE LOAD!' 


NG FOR ALL 


FUNDAMENTAL 


CASES - 
















SECTION 


7 V = 


0.52C888 


chord = 


0 .26b028 










I 


X8 


CASE 1 


CASE 2 


CASE 2 


CASE 6 


CASE 5 


CASE b 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


61 


0 .000000 


0.528120 


0.000000 


0.000000 


0.000000 


0.000000 


0. oooooo 


0 .oooooo 


0. oooooo 


0.000000 


0.000000 


62 


0 . 026672 


0.315010 


0 . COOOOO 


0.000000 


0.000000 


0 . oooooo 


0.000000 


0.000000 


0 .oooooo 


0. ooocoo 


0. oooooo 


63 


0.0*54*2 


0. 165907 


0 . 30C000 


0.000000 


0 . OCOOOO 


c .oooooo 


0.000000 


0.000000 


0.000000 


0 .ooocoo 


0.000000 


66 


0.206107 


0. 0866o8 


0 . 000000 


0. cooooo 


0.000000 


0. ocooco 


0 . oooooo 


0.000000 


0 .oooooo 


0 .ooocoo 


0. ooocoo 


65 


0.3656*2 


C .05b658 


0. ocooco 


0 .000000 


0.000000 


0. ocoooo 


0.000000 


0.000000 


0. oooooo 


0.000000 


0. ocooco 


66 


0.500000 


0.061578 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0. ooocoo 


6 7 


0.656509 


0.021972 


0. ooocoo 


0 .ocoooo 


0.000000 


0. ooocoo 


0. oooooo 


0. ooooco 


0.000000 


0. ooooco 


0. cooooo 


68 


0 .7938*3 


0 . 022680 


o.cocooo 


0.000000 


0.000000 


0.000000 


0.000000 


0 .coocoo 


0.000000 


0.000000 


0. cooooo 


69 


0. *06508 


0 . C 1 5 b 7 9 


0. ococoo 


0.000000 


0.000000 


0.000000 


0. oooooo 


o.cocooo 


0 . oococo 


0 .ocoooo 


0. ocooco 


70 


0.975528 


0.007727 


0.000000 


0 .ooooco 


0.000000 


0 . oooooo 


0 .oooooo 


0.000000 


0 .oooooo 


0 .oooooo 


0.000000 










DETAILED 


LEADING EDGE LOADING 












1 


0.0068*6 


0 .77*860 




















2 


0.00*789 


0.541859 




















3 


0.016683 


0.632291 




















6 


C. 01 95 78 


0 . 262*8 1 




















5 


C .026672 


0.315010 


























- CHORDWISE LOADING FOR ALL 


FUNDAMENTAL 


CASES « 
















SECTION 


8 Y = 


0.381506 


CHORD = 


0.272673 










I 


XB 


CASE 1 


CASE 2 


CASE 3 


CASE 6 


CASE 5 


CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


71 


0.000000 


0 .695801 


0 -0C0000 


0.000000 


0 . COOOOO 


0.000000 


0.000000 


0.000000 


0. ooooco 


0.000000 


0. OOCOOO 


72 


0.026672 


0.2*5628 


0 .000000 


0.000000 


0.000000 


0.000000 


0 .oooooo 


0.000000 


0 .ooocoo 


0.000000 


0 . OOOOOO 


73 


0.095692 


0 .136826 


0. cooooo 


0.000000 


0. ooocoo 


o.cocooo 


0.000000 


0.000000 


0. oooooo 


0. cooooo 


0 .OOOOOC 


76 


0.206107 


0.C81121 


0 .000000 


0.000000 


0 .cooooo 


0.000000 


0.000000 


0.000000 


0.000000 


0. OOCOOO 


0.000000 


75 


0.365692 


0.053235 


0.000000 


0.000000 


0.000000 


0 . oooooo 


0.000000 


0.000000 


0.000000 


0. OOOOOO 


0.000000 


7 6 


0 .500000 


0.039607 


c .000000 


0 . 000000 


0.000000 


0 .oooooo 


0 .OOCOOO 


0. ooooco 


0 .ooooco 


0 .000000 


0.000000 


77 


0 . 65 6508 


0 .020708 


0 . oococo 


0.000000 


0. ocoooo 


o.occooo 


0.000000 


0. ooooco 


0 .cooooo 


c. ocooco 


0 . ooocoo 


78 


0.7*36*3 


0.C22862 


0 . 000000 


o.ooocco 


0.000000 


0 .ocoooo 


0.000000 


0.000000 


o.occooo 


c .oooooo 


c .cooooo 


7 * 


0.906509 


0 . 015 lc5 


0 . ooooco 


0. ooocoo 


c . oooooo 


0.000000 


0. oooooo 


0 . oooooo 


0 . oooooo 


o.occooo 


o.cocooo 


80 


0. *75528 


0.00768* 


0 . 000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0. oococo 


0 .ocoooo 


0 . ooooco 



DETAILED LEADING EDGE LOADING 

1 0.0048*4 0 .7321 1 A 

2 0.00978* 0.508657 

5 0.0166S3 0.605773 

6 0.019578 C. 341^23 

5 0.026672 0. 295628 



« CHORDWISE LOADING FOP ALL FUNDAMENTAL CASES « 



I 


XB 


CASE 1 


SECTION 
CASE 2 


9 V = 

CASE 3 


0.232726 
CASE 6 


CHORD = 
CASE 5 


0.300690 
CASE b 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


81 


o.occooo 


0.668660 


0 .OOOOOO 


0.000000 


0 .OOOOOO 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


82 


0.026672 


0.267585 


0 .OOOOOO 


0 .oooooo 


0 .OOOOOO 


0.000000 


0 . oooooo 


0.000000 


0.000000 


0. ooooco 


0.000000 


83 


0.0*5692 


c.126018 


0 .OOOOOO 


0 .ooocoo 


0 . OOOOOO 


0.000000 


0 . oooooo 


0.000000 


0.000000 


0.000000 


0.000000 


86 


0.206107 


0.07602b 


0.000000 


0 .oooooo 


0 . OOOOOO 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


85 


0.3656*2 


0.06*507 


0.000000 


C .OOCOOO 


0.000000 


0. oooooo 


0.000000 


0.000000 


0.000000 


0. ococoo 


0.000000 


86 


0.500000 


0.037572 


0.000000 


0.000000 


0 .oooooo 


0 .ooocoo 


0 . oooooo 


0.000000 


0.000000 


0.000000 


0. ooooco 


87 


0.6565C8 


0.029666 


0.000000 


0. ocoooo 


0.000000 


0.000000 


0.000000 


0.000000 


0 .oooooo 


0.000000 


0.00000c 


88 


0.7*2893 


0.022162 


0.000000 


0. oooooo 


0 .oooooo 


0. OOCOOO 


0.000000 


0.000000 


0. ooooco 


0.000000 


0.000000 


89 


0 . 906508 


0.016763 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0. ooocoo 


0.000000 


0 . oooooo 


0. ooooco 


90 


0.975528 


0.0072*8 


0.000000 


0.000000 


0 .oooooo 


0. OOCOOO 


0 . oooooo 


0.000000 


0.000000 


0 . oooooo 


0. ooocoo 


1 

3 

6 

5 


0.006896 

0.009789 

0.014683 

0.019578 

0.026672 


0.662517 

0.660320 

0.367222 

0.3091*6 

0.267585 




DETAILED 


LEADING EDGE LOADING 













- CHORDWISE LOADING FOR ALL FUNDAMENTAL CASES « 



I 


XB 


CASE 1 


SECTION 
CASE 2 


10 Y = 

CASE 3 


0.078217 
CASE 4 


91 


0.000000 


0.348*52 


0 .OCOOOO 


0 .cooooo 


0 .COOOOO 


92 


0.026672 


0.2101*6 


0. ooocoo 


0 .cooooo 


0 .OOCOOO 


93 


C. 0956*2 


0. 10C887 


0.000000 


0 .OOO000 


0.000000 


96 


0.206107 


0.064271 


0.000000 


0.000000 


o.cocooo 


*5 


0.365492 


0.047291 


0 .ocoooo 


0.000000 


0 . oooooo 



CHORD = 
CASE 5 


0.32*993 
CASE 6 


CASE 7 


CASE 8 


CASE 9 


CASE 10 


0. OOOOCO 

0 .oooooo 
0.000000 
0 .ocoooo 
0.000000 


0 . OOOOOO 

0.000000 

0. OOOOOO 
0.000000 
0.000000 


0.000000 
0. ooooco 
0.000000 
0.000000 
0.000000 


0.000000 
0.000000 
0. OOCOOO 
0. OOCOOO 
0.000000 


0.000000 
0. OOOOOO 

0.000000 

0.000000 

0.000000 


0.000000 
0.000000 
0. ocoooo 
0 .ooooco 
0. cooooo 



106 








96 


0.5000C0 


0.039165 0.000000 0.000000 0.000000 


0 .000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 




aj 


0.654508 


0.032400 0.000000 0.000000 0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 


.000000 


0.000000 




98 


0.7938*3 


6.024758 0.000000 0.000000 0.000000 


0.000000 


0.000000 


O.CCOCOO 


0.000000 


0 


. oocooo 


0.000000 




A A 


0.9C45C3 


0.016676 0.000000 0.000000 0.000000 


0.000000 


0 .000000 


0 .000000 


0.000000 


0 


.000000 


0.000000 




100 


0.9755:8 


0.0CS296 0.000000 0.000000 0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0 


. oooooo 


0.000000 










DETAILED LEADING EDGE LOADING 
















1 


0.004894 


0.515699 






















2 


0. 00°789 


0.358852 






















3 


0.014683 


0 . 28 08 6 7 






















4 


0.019578 


0.242142 






















5 


0.024472 


0.210196 


























* 


SPANW1CE LOADING FOR FUNDAMENTAL CAS 


E 1 * 


















* * * 


























LIFT . . . 








I NDUr.FD DRAG 










SECTION 


Y 


CLG CLMU 


CL * 


CDG 


CDMU 


cs 














CD I 


CMU GAMMA 


ALF1N 


















1 




0.993844 


0.036230 0.000000 


0.036230 * 


0 .0006323 


0.0000000 


0.0013670 


-0.0007347 


0.0000000 


0. 


0028321 


0.0570169 






0.969372 


0 . 05 9 C 1 Q 0.000000 


0.059019 * 


0.0010301 


0.0000000 


0.0013883 


-0.0003582 


0.0000000 


0.0047505 


0.0255027 


3 




0. «21032 


0.074748 0.000000 


0.074748 * 


0.0013046 


0.0000000 


0. 00l45o0 


-0.0001514 


0.0000000 


0. 


0063592 


0.0127012 


4 




0.850012 


0.080822 0.000000 


0.080822 « 


0.0014106 


0.0000000 


0.0014505 


-0.0000398 


0.0000000 


0. 


0074202 


0 . COS a 1 95 


5 




0.758062 


0.081304 0.000000 


0.091304 » 


0.0014190 


0.0000000 


0.0013934 


0.00C025o 


0.0000000 


0. 


0081734 


0.0061406 


6 




0.647446 


0.079389 0.000000 


0.079389 * 


0.0013856 


0.0000000 


0.0013049 


0.0000807 


0.0000000 


0. 


0088136 


0.0050705 


7 




0.520888 


0.076165 0.000000 


0.076165 * 


0.00132*3 


0.0000000 


0.0011913 


0.0001380 


O.OOOGOOO 


0. 


0093697 


0. 004748a 


8 




0.381504 


0.071829 0.000000 


0.071829 » 


0 . CO 12536 


0.0000000 


0.0010499 


0.0002037 


0.00C0000 


0. 


0097857 


0.0047268 


9 




0.232726 


0.066165 0.000000 


0.066165 * 


0.0011548 


0 .0000000 


0 . 0008598 


0.0002950 


o.ocooooo 


0. 


0099475 


0 . 0046 0 A 9 


10 




0.078217 


0.056551 0.000000 


0.058551 » 


0. 0010219 


0.0000000 


0.0005201 


0.0005018 


0.0000000 


0. 


0096608 


0.0031973 






TOTAL 


0.070281 0.C00C00 


0. 070281 " 


0.0012266 


0.0000000 


0.0010305 


0.0001961 


0.0000000 






0 .0002059 








PITCHING MCMENT 






. . LIFT CENTER . . . 











SECTION Y 


CMG 


CMMU 


CMT 


CM 


» * XC p/C XCL/C 






1 


0.993844 -0.003325 


0.000000 


0.000000 - 


0.003325 


MM 0 . 


091763 0.091763 






2 


0 . *6 * 3 7 


2 -0.003643 


0. oooooo 


0.000000 - 


0 . 0 08o4 3 


MM 0. 


146453 0.146453 






3 


0.92103 


2 -0.014778 


0. oooooo 


0.000000 - 


0.014778 


* » 0. 


197701 0.197701 






4 


0.85001 


2 -0.017849 


0 . oooooo 


0.000000 - 


0.017849 


MM 0 . 


220845 0.2 


2 0845 






5 


0.75806 


2 -0.018479 


0.000000 


0.000000 - 


0.018479 


MM 0 . 


227287 0.2 


27287 






6 


0.64744 


6 -0. 018190 


0.000000 


0 . oocooo - 


0.018190 


MM 0 . 


229127 0.2 


29127 






7 


0.5208S8 -0.017544 


0 . oooooo 


0.000000 - 


0.017544 


Mm 0 . 


230347 0.2 


30347 






8 


0.381504 -0.01q696 


o. oooooo 


0.000000 - 


0.016696 


* " 0. 


232438 0.2 


32438 






A 


0.23272 


6 -0.015772 


0.000000 


0.000000 - 


0.015772 


MM 0 . 


2 38 3 a8 0.2 


38368 






10 


0.078217 -0.015890 


0.000000 


o. oocooo - 


0.015890 


" » 0. 


271392 0.2 


71392 








TOTAL 


-0.145988 


0.000000 


o .oocooo - 


0.145988 


CAPEX) 2. 


077202 2.077202 CX/CREF) 








0.13380a 


o. oooooo 


0.000000 


0. 133806 


( XMC ) 0.544205 0.544205 (X/B/ 


2) 


































TOTAL AERODYNAMIC COEFFICIENTS ** 












CASE 1 


CASE 2 


CASE 3 


CASE 4 


CASE 5 


CASE 6 










7 CASE 8 CASE 9 CASE 10 
















CCLG 


0 . 0 7 028 1 1 


0 .0000000 


0 . 0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CCLJ 


0.0000000 


O.OOOCOOO 


o.ocooooo 


0.0000000 


0.0000000 


0 . 0000000 


0.0000000 


0.0000000 


0 .0000000 


0.0000000 


' CCL 


0.0702311 


0.0000000 


0.0000000 


O.OOOCOOO 


0.0000000 


0.0000000 


0.0000000 


o.ocooooo 


0.0000000 


0.0000000 


CCDG 


0.0012266 


0.0000000 


o.cooocoo 


0.0000000 


0 . oocoooo 


0.0000000 


0.0000000 


o.ocooooo 


0.0000000 


0 . oooocoo 


CCDJ 


O.OCOOOOO 


0.0000000 


0.0000000 


O.OOOOCCC 


0.0000000 


o.ocooooo 


o.ocooooo 


0.0000000 


0.0000000 


o.coooooo 


CCS 


0.0C1C305 


0 .OOOO0O0 


0. oooocoo 


0. 000CCC0 


0 .0000000 


0 . 0000000 


0.0000000 


o.coooooo 


0.0000000 


0 . oooocoo 


CCD 


0.0001961 


0.0000000 


o.ocooooo 


o.cooocoo 


0.0000000 


0 .oocoooo 


0 .0000000 


0.0000000 


0.0000000 


0.0000000 


i CD I T2 


0.0002059 


0.0000000 


0. oocoooo 


o.ocooooo 


0 . oocoooo 


0.0000000 


0.0000000 


0.0000000 


o.coooooo 


O.OOOCOOO 


’ CCJ 


0.0000000 


0.0000000 


o.cocoooo 


O.OOOCOOO 


O.OOOCOOO 


o.ooococo 


o.ocooooo 


0.0000000 


o.coooooo 


0.0000000 


CCMG 


- 0 . U 59 S 82 


0.0000000 


o.coooooo 


0. 0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0 . 0000000 


0.0000000 


CCMJ 


O.OOOOCCC 


0.0000000 


0.0000000 


0.0000000 


o.ocooooo 


O.COOOOOO 


0.0000000 


0.0000000 


0.0000000 


O.COOOOCO 


CCMT 


O.OCOOOOO 


0. 0000000 


0 .0000000 


o.coooooo 


0.0000000 


O.COOOOOO 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CCM 


-0.1459882 


0.0000000 


o.coooooo 


o.coooooo 


o.coooooo 


0.0000000 


0.0000000 


0.0000000 


0 . ccooooo 


O.OOOCOOO 


CXCP 


2.0772021 


0.0000000 


o.cocoooo 


o.coooooo 


o.coooooo 


0.0000000 


0.0000000 


o.coooooo 


0 . oooocoo 


0.0000000 


CXCw 


2.0772021 


o.ccccooo 


O.OOOCOOO 


0.0000000 


0.0000000 


0 .oooocoo 


0.0000000 


0.0000000 


0.0000000 


O.COOOOOO 


CXCP6 


0.5442055 


0.0000000 


O.OCOOOOO 


o.ocooooo 


0.0000000 


O.OOOCOOO 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CXCLB 


0.5442055 


0.0000000 


O.COCOOOO 


o.ocooooo 


o.ocooooo 


O.COOOOOO 


0. 0000000 


0.0000000 


O.OOOCOOO 


o.cooocoo 


CCMGMC 


0 . 1338062 


0 .0000000 


0.0000000 


0 . OOCOOCO 


c. oooocoo 


0.0000000 


0.0000000 


0.0000000 


0 .0000000 


0.0000000 


CCMJMC 


0.0000000 


0 . OOCOOCO 


o.ocooooo 


O.OOOCOOO 


o.ocooooo 


0 . oooocoo 


o.ocooooo 


O.OOOCOOO 


0 .0000000 


o.cooocoo 


CCMTMC 


0.0000000 


O.OOOCOOO 


o.coooooo 


0 . OOCOOCO 


0.0000000 


0 . OOCOOCO 


o.ocooooo 


0.0000000 


0.0000000 


0.0000000 


■ CCMMC 


0.1338062 


0.0000000 


o.ocooooo 


O.OOOCOOO 


0.0000000 


O.OOOCOCO 


0.0000000 


0.0000000 


0.0000000 


O.OOOCOOO 


CLLG 


0 . OOCOOCO 


0 . OOCOOCO 


0 . oocoooo 


0.0000000 


0.0000000 


0.0000000 


0 . OOOOCOO 


0.0000000 


0.0000000 


0.0000000 


CLLJ 


O.OCOOOOO 


0.0000000 


0 . 0000000 


O.OOOCOOO 


c. oooocoo 


0.0000000 


0.0000000 


o.ocooooo 


0.0000000 


0.0000000 


CLL 


O.OOOCOOO 


0.0000000 


0.0000000 


C .0000000 


0.0000000 


0 .0000000 


0.0000000 


0.0000000 


C . 0000000 


0 . oocoooo 


CNJ 


0.0000000 


0.0000000 


0 . oooocoo 


0 . OOCOOCO 


0.0000000 


0.0000000 


0.0000000 


o.coooooo 


0 .OOCOOCO 


0.0000000 


CNIMC 


0.0000000 


0.0000000 


c .oocoooo 


0.0000000 


o.cocoooo 


0.0000000 


0.0000000 


o.ocooooo 


C .0000000 


0 . 0000000 


CCY 


O.OOOCOOO 


0.0000000 


c.ococcoo 


0 .oocoooo 


0.0000000 


0.0000000 


0.0000000 


O.OOOCOOO 


0.0000000 


o.ocooooo 


CBGR 


0.0324014 


0 .0000000 


o.cooocoo 


0 .0000000 


O.OOOCOOO 


O.OOOCOOO 


0.0000000 


O.OOOCOOO 


0. 0000000 


0.0000000 


CBGL 


0.0324014 


O.COOOOCO 


0.0000000 


0.0000000 


0.0000000 


O.OOOCOOO 


0.0000000 


0. OOOOCOO 


0.0000000 


o.ocooooo 


CEJR 


O.OOOCOOO 


0. 0000000 


o.coooooo 


o.coooooo 


O.OOOCOOO 


0.0000000 


o.coooooo 


O.COOOCOO 


c. oocoooo 


o.ocooooo 


CSJL 


O.COOOOCO 


0.0000000 


O.COOOOCO 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0 . oooocoo 


o. oocoooo 


0.0000000 


CBR 


0.0324014 


0.0000000 


O.OOOCOOO 


0 . coococo 


0.0000000 


0 . oocoooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CBL 


0.0324014 


O.OOOCOOO 


O.COOOOOO 


0 .oooocoo 


0 . oocoooo 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


CPMBR 


0.461024® 


0.0000000 


O.OCOOOOO 


0.0000000 


0.0000000 


o.coooooo 


o.ocooooo 


0 .0000000 


0.0000000 


o.coooooo 


CPMBL 


0.461024A 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


0.0000000 


O.OOQOOOO 


0.0000000 



* THE PROGRAM HAG REACHED NORMAL TERMINATION * 



* THE PROGRAM HAG REACHED NORMAL TERMINATION * 
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PROGRAM JETFLAP LISTING 



PROGRAM JETFLAP 

*** VERSION 3.0 MODIFIED BY J.A. CAMPBELL ( JUL88 ) *** 

*** PROGRAM REVISED TO RUN UNDER FORTRAN 77 ON THE MICROVAX/2000 *** 
FINAL UPDATES MADE 14 SEP 88 - ( JAC ) 

SCRATCH FILES ADDED AND "FIND! " STATEMENTS HAVE BEEN COMMENTED OUT 
DATA INPUT IS READ BY OBTAINING AN AVAILABLE LOGICAL UNIT NUMBER (LUN) 
INSTEAD OF ASSIGNING A READ DEVICE AS IS DONE ON THE IBM SYSTEM 

OUTPUT VALIDATED WITH HISTORICAL DATA - RESULTS OF DOUGLAS COMPANY, 
SODERMAN THESIS AND THE AE-4501 CLASS PROJECT OF S.M. WHITE (MAY 85) 



*** VERSION 2.0 
COMPILED USING 



UNDER REVISION J.A. CAMPBELL (FEB 88) *** 

FORTVS JTFLAP( LVL( 66 ) )" ON IBM WITH NO ERRORS 5/20/88 

UPDATED EQN FOR CMG(K) IN SUBR SLOAD (TAPE VERSION DIFFERENT) 5/31/88 
OUTPUT VALIDATED WITH HISTORICAL DATA - RESULTS OF DOUGLAS CONTRACT & 
SODERMAN ( NPS THESIS) 



C*********************************************************************** 
C******************* EVD JET-WING COMPUTER PROGRAM ******************* 
C*********************************************************************** 



THE DEVELOPMENT OF THE ELEMENTARY VORTEX DISTRIBUTION (EVD) JET-WING 
COMPUTER PROGRAM FOR DETERMINING THE AERODYNAMIC CHARACTERISTICS OF 
ARBITRARY JET FLAPPED WINGS WAS PERFORMED BY THE DOUGLAS AIRCRAFT 
COMPANY , V/STOL TECHNOLOGY GROUP - AERODYNAMICS, OF THE MCDONNELL 
DOUGLAS CORPORATION. ORIGINALLY DEVELOPED UNDER THE SPONSORSHIP OF 
THE INDEPENDENT RESEARCH AND DEVELOPMENT PROGRAM OF MCDONNELL 
DOUGLAS, THE DOUGLAS EVD JET WINS LIFTING SURFACE THEORY HAS BEEN 
THE SUBJECT OF EXTENSIONS AND IMPROVEMENTS WHICH HAVE BEEN 
ACCOMPLISHED UNDER OFFICE OF NAVAL RESEARCH CONTRACT N00014-71-C-0250 
(T. L. WILSON - PROJECT ENGINEER). WORK LEADING TO THE PRESENT 
COMPUTER PROGRAM, WHICH INCORPORATES SEVERAL FEATURES ORIGINALLY 
DEVELOPED BY THE DOUGLAS AIRCRAFT COMPANY, WAS ALSO CONDUCTED 
UNDER THE SPONSORSHIP OF THIS CONTRACT. 

IN SUMMARY, THE EVD JET WING COMPUTER PROGRAM WILL PROVIDE, 

FOR ARBITRARY PLANFOR. .3 , THE FOLLOWING - 

1. SPANWISE AND CHORDWISE LOADING 

2. SPANWISE VARIATION OF INDUCED DRAG 

3. A CAPABILITY TO INVESTIGATE THE EFFECTS OF - 

A. PART SPAN FLAPS 

B. PART SPAN BLOWING 

C. ROLLINS, YAWING, PITCHING AND SIDESLIP 

4. TOTAL LIFT AND INDUCED DRAG ( TREFFTZ PLANE METHOD), 
PITCHING, YAWING AND ROLLING MOMENTS, ETC. 

COMPLETE DOCUMENTATION OF THE EVD JET WING LIFTING SURFACE THEORY 
AND ASSOCIATED COMPUTER PROGRAM ARE CONTAINED IN DOUGLAS REPORT 

J5519 -- A THEORETICAL METHOD FOR CALCULATING THE 
AERODYNAMIC CHARACTERISTICS OF ARBITRARY JET FLAP WINGS 

VOLUME I 

THE ELEMENTARY VORTEX DISTRIBUTION JET-WING 
LIFTING SURFACE THEORY 

VOLUME II 

EVD JET-WING COMPUTER PROGRAM USERS MANUAL 



INTEGERS LUN 

INTEGERS INFILE SI2E,I0FILE SIZE 
INTEGER STATUS7NAN3 
CHARACTER*20 INFILE ,OUTFI LE 
LOGICAL EXIST 

COMMON/MATHEW/NCASES ,ISYMM , I PRINT , JETFLG ,IGTYPE , I HINGE 
COMMON/M ARK/NRCWS ,NR0N3J ,NNT ,NJT ,NMAX,NW( 40 ) ,NJ( 40 ) ,IW( 40 ),I J( 40 ) 

common /lu;;e/ titlei 20 1 

COMMON/ JOHN/ AREA , SPAN , ARATIO ,TR, SWEEP ,CREF,CMAC ,CBAR ,XMC ,XCG 
COMMON/SPIRIT/ NEWMAX ,NEWCMU ,NOALF A , LOGIC ,lR 

COMMON/INDATA/ARE ,SPA ,CRE ,XM ,CMA ,XC ,NRO>NC ,ISY , I PR , JET , IGT *IHI 
COMMON/GEOMl/Y ( 40 ) , CHORD) 40 ), DELTA! 40 ),XB( 600 ) ,XI ( 600 ) ,DEL( 600 ) , 

1 D( 40 ) ,KK( 600 ),I TYPE ( 600 ) 

COMMON/GEOM2/XLEAD( 40 ) ,XTRAIL( 40 ) ,TANLE ( 40 ) ,TANTE( 40 ) 
COMMON/FCASE2/TST ( 40,10 ) ,HL ( 40 , 10 ) ,DJ( 40 ) , ACTE ( 40 ) , AC ( 20,40 ), 

1 XHB( 4 ,40 ) »BtT( 4,40 ) ,IFS( 4,40 ) ,ICT ( 40 ) , I HT ( 40 ) >NCT ,NHT 

COMMON/FCASE3/EPS( 600,10 ) ,BETA( 600 , 10 ) ,THETA( 40 , 10 ) ,THS( 40 , 10 ) 
COMMON/ JCASE/CMU( 40 ) ,CMUP ( 40 ) ,CMUPP( 40 ) 

COMMON/SO LV1/B( 600,10 ) 

COMMON/COMPOS/FACT0R ( 10,24 ),NCC 
COMMON/DERIV/UOl 40 ) ,CLQ ,CMQ ,CMQMC 
COMMON/INDAT/LUN 
DATA CHECK/4H9 / 

DATA CHECK/' 9 V 



DEFINE FILE 1( 1000, 1200, U, NEXT ) 

FOLLOWING LINES FOR SCRATCH FILES ADDED BY J.A. 
OPEN ( UNIT = 1 , 

2 FILE = ' JTFLAP1 . DAT ' , 

2 ORGANIZATION= 'SEQUENTIAL', 
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2 ACCESS= ’DIRECT’, 

2 RECORDTYPE = ’FIXED', 

2 FORM= 'UNFORMATTED', 

2 RECL= 600, 

2 ASSCCIATEVARIABLE= NEXT, 

2 STATUS= ’SCRATCH') 

C OPEN SCRATCH FILE FOR MATRIX INPUT TO SOLN ROUTINE 
OPEN ( UNIT = 2 * 

2 FI LE= ' JTFLAP2 . DAT ' » 

2 ORGANIZATION 'SEQUENTIAL 1 > 

2 ACCESS= 'SEQUENTIAL', 

2 RECORDTYPE = ’VARIABLE', 

2 FORM = 'UNFORMATTED', 

2 STATUS— 'SCRATCH' ) 

C OPEN SCRATCH FILE FOR TEMP STORAGE DURING MATRIX SOLN 
OPEN (UNIT=3, 

2 FILE= ‘JTFLAP3.DAT', 

2 ORGANIZATION 'SEQUENTIAL', 

2 ACCESS= 'SEQUENTIAL', 

2 RECORDTYPE= 'VARIABLE', 

2 FORM= 'UNFORMATTED', 

2 STATUS= 'SCRATCH') 

C OPEN SCRATCH FILE FOR TEMP STORAGE DURING MATRIX SOLN 

OPEN ( UNIT =<+ * 

2 FILE= { JTFLAP4.DAT ' , 

2 ORGANIZATION= 'SEQUENTIAL', 

2 ACCESS= 'SEQUENTIAL', 

2 RECORDTYPE= 'VARIABLE', 

2 FORM= 'UNFORMATTED', 

2 STATUS= 'SCRATCH') 



CALL LIBRARY ROUTINE TO CLEAR THE SCREEN, THEN PRINT HEADER 
ISTAT = LIB$ERASE_PAGE (1,1) 

PROGRAM JETFLAP : VERSION 3 : 31 JULY 88 ' 



PRINT 
PRINT *, 
PRINT * 
PRINT *, 
PRINT *, 
PRINT *, 
PRINT * 
PRINT * 



THE ELEMENTARY VORTEX DISTRIBUTION ( EVD ) JET-WING' 
CGMPUTER PROGRAM FOR DETERMINING THE AERODYNAMIC' 
CHARACTERISTICS OF ARBITRARY JET FLAPPED WINGS' 



DATA 
l The 



FILE 

input file 

| Prompt 
I Filename si 2 



C ROUTINE TO PROVIDE NAME FOR AND OPEN INPUT 

5 STATUS = LIBSGET INPUT ( INFILE * 

2 ' ENTER THE DATA FILE NAME: ', 

2 INFILE SIZE ) . 

IF (.NOT. STATUS) CALL LIB$SIGNAL ( XVAL (STATUS)) 

C CHECK TO SEE IF THE FILE EXISTS BEFORE TRYING TO ACCESS IT 
IF (INFILE .EQ. '99?') GO TO 110 

INQUIRE (FILE = INFILE ( 1 :INFILE SIZE), EXIST = EXIST) 

IF ( .NOT. EXIST) THEN 
PRINT * 

PRINT *, ' THAT FILE NAME DOES NOT EXIST.' 

PRINT *, ' (ENTER 999 TO EXIT).' 

PRINT * 

GO TO 5 
END IF 

C GET A FREE LOGICAL UNIT NUMBER 
STATUS = LIBSGET LUN ( LUN ) 

IF (.NOT. STATUS! CALL LIBSSIGNAL (XVAL (STATUS)) 

C OPEN FILE FOR DATA FILE INPUT 
OPEN ( UNIT = LUN , 

2 FILE= INFILE ( 1 : INFILE SIZE), 

2 CRGANIZATION= ’ SEQUENTIAL ' , 

2 ACCESS= 'SEQ’ ’ENTIAL ' , 

2 RECGRDTYPE= VARIABLE', 

2 FORM= 'FORMATTED', 

2 STATUS= 'OLD') 

C 

C SEND OUTPUT TO SCREEN OR FILE 
CALL CLRSCRN 
PRINT * 

, PRINT *> '==> SEND THE RESULTS TO THE SCREEN OR A FILE?' 

6 PRINT *, ' ENTER (S OR F I ' 

READ ( 5 , ' ( A1 ) ' ) ANS 

IF ( ANS. EQ. ' F ' ) THEN 
PRINT * 

7 PRINT * 

PRINT *, ' (ENTER 999 TO EXIT.)* 

STATUS = LIBSGET INPUT (OUTFILE, 

2 ' ENTER NAME OF~OUTPUT FILE TO CREATE: 

2 IOFILE SIZE) 

C CHECK TO SEE IF THE FILE EXISTS BEFORE CREATING it 
IF (OUTFILE .EQ. '999') GO TO 110 
INQUIRE (FILE = OUTFILE (l:IOFILE SIZE), EXIST = EXIST) 
IF ( EXIST ) THEN 
PRINT * 

PRINT *, ' THAT FILE ALREADY EXISTS.' 

WRITE (6,1005) 

PRINT *, * (OR ENTER 999 TO RETURN TO EXIT OPTION).* 
PRINT * 

8 CALL QUERY (NANS) 

ELSE 

GO TO 9 
END IF 

IF (NANS .EQ. 1) THEN 
GO TO 9 

ELSE IF( NANS .EQ. 2 )THEN 
GO TO 7 

ELSE I F ( NANS .EQ. 999)THEN 
GO TO 110 



The OUTPUT file 
Prompt 

Filename size 
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INVALID RESPONSE - REENTER. 



ELSE 

PRINT *, 

GO TO 6 
END IF 

OPEN FILE FOR RESULTS FROM PROGRAM JETFLAP 



PRINT *, ' PROCESSING BEGINS 
PRINT * 

PRINT *, ' DATA BEING WRITTEN TO FILE 1 >OUTFILE 
PRINT *> ' FILE WILL HAVE SUFFIX .DAT' 

OPEN 1 UNIT=6,FILE=0UTFILE , ST ATUS= ' UNKNOWN ' ) 

ELSE IF ( ANS.EQ. 'S' ) THEN 
10 



GO TO 
ELSE 

PRINT *, 

GO TO 6 
END IF 
PRINT * 

1005 FORMAT (IX 
1010 FORMAT ( A4 ) 

: READ THE TITLE FOR THIS CASE 

10 READ( LUN, 20, END=100 * " 
20 FORMAT ( 2uA4 ) 



INVALID RESPONSE - REENTER. 1 



DO YOU WISH TO OVERWRITE THIS FILE? 1 = YES*2 = NO 1 ) 



) TITLE 



READ GENERAL GEOMETRY CONTROL DATA 
30 READ( LUN, 40 ) AREA , SPAN ,CRE F ,XMC ,XCG 

40 FORMAT ( 5F10. 6 ) 

READ( LUN, 41 ) NROWS ,NCASES ,ISYMM ,IPRINT , JETFLG ,IGTYPE , I HINGE ,IDERIV 

41 FORMAT! 1012) 

ARE = AREA 
SPA = SPAN 
CRE = CREF 
XM = XMC 

XC = XCG 
NRO = NROWS 
NC = NCASES 
ISY = ISYMM 
IPR = IPRINT 
JET = JETFLG 
IGT = IGTYPE 
IHI = IHINSE 

FIND OUT WHICH TYPE OF RUN IS REQUIRED 
I F ( IDERIV .NE. 0) GO TO 60 

A REGULAR RUN WILL BE EXECUTED 
50 CALL APPLYl 

GO TO ( 60 , 70 , 100 , 120 ), IR 



C A STABILITY DERIVATIVE RUN WILL BE EXECUTED 
60 CALL APPLY2 

IF ( IR .EQ. 2) GO TO 120 
C 

C *********************************************************************** 
C THIS RUN HAS BEEN COMPLETED. THANK GOD FOR SMALL BLESSINGS. 

C *********************************************************************** 

c 

C PRINT COMPLETION MESSAGE FOR THIS RUN AND GO BACK TO BEGIN A NEW RUN 
70 WRITE ( 6 > 80 ) 

80 FORMAT ( lHO//// 32X , 10( 5H***** ) , 3H***/ 32X, 

1 53H* THE PROGRAM HAS REACHED NORMAL TERMINATION */ 

2 32X>10( 5H***** I >3H*** ) 

C READ TO SEE IF THE NEXT CARD IS A TITLE OR AN OLD END OF CMU CARD 
READ! LUN, 20, END = 100 ) TITLE 
90 I F( TITLE l 1 ) .EQ. CHECK) GO TO 10 
GO TO 30 



PRINT COMPLETION MESSAGE AND STOP EXECUTION 
100 WRITE ( 6 , 80 ) 

110 STOP 



C*********************************************************************** 
C A FATAL ERROR HAS OCCURED. PRINT FINAL MESSAGE AND STOP EXECUTION. 
C********** ************************************************************* 
120 WRITE ( 6 , 130 ) 

130 FORMAT ( 1H0////62X , 2( 4H**** )/31X , IK 5H***** )/ 

1 31X >55H* THE PROGRAM HAS REACHED ABNORMAL TERMINATION */ 

2 31X,11(5H*****)/62X,2(4H****) ) 

140 STOP 

END 

C************ *********************************************************** 
SUBROUTINE CLRSCRN 



LIBRARY ROUTINE TO CLEAR THE SCREEN. 



ISTAT = LIB$ERASE_ C AGE (1,1) 

RETURN 

END 

C*********************************************************************** 
SUBROUTINE QUERY (NANS) 



ROUTINE TO TRAP ERRORS CAUSED BY IMPROPER RESPONSES TO QUESTIONS. 
THE COMPUTER GENERATES AND ERROR WHEN A CHARACTER IS SUPPLIED TO 
A QUESTION EXPECTING AN INTEGER OR REAL VALUE. 



NQTEST =0 
CONTINUE 
IF (NQTEST 
PRINT * 

PRINT * 

END IF 
NQTEST = NQTEST + 



.GT. 0) THEN 

' CHARACTER VALUES ARE NOT VALID. 1 
1 PLEASE ENTER AN INTEGER VALUE.' 



no 



READ <5,*,ERR=1)NANS 

RETURN 

END 

C*********************************************************************** 

SUBROUTINE APPLY1 



THIS SUBROUTINE CONTROLS ALL ASPECTS OF CALCULATION OF REGULAR CASES 

COMMON/MATHEW/NCASES >ISYMM >IPRINT , JETFLG >IGTYPE >IHINGE 
COMMON/SPIRIT/ NEW; iAX, NEWCMU .NOALFA > LOGIC ,IR 
DECIDE WHETHER OR NOT THERE IS AN ALPHA CASE 
NOALFA = 1 
IR = 1 
LOGIC = 1 

IFCISYMM .LT. 0) NOALFA = 0 

INITIALIZE AND INCREMENT THE CMU CASE CONTROL COUNTER 
10 NEWCMU = 0 
20 NEWCMU = NEWCMU + 1 

EXECUTE THE PROBLEM FORMATION STAGE 
30 CALL STAGE1 

GO TO ( 40 , 60 , 70 , 80 ), IR 

EXECUTE THE PROBLEM SOLUTION STAGE 
40 CALL STAGE 2 

IF ( IR . EQ. 2) GO TO 80 

EXECUTE THE AERODYNAMIC PARAMETER STAGE 
50 CALL STAGE 3 

THE PROGRAM HAS BEEN EXECUTED SUCESSFULLY 
GO BACK AND DO A NEW CMU CASE 
I F I JETFLG .NE, 0) GO TO 60 
GO TO 20 



C*********************************************************************** 
C THIS RUN HAS BEEN COMPLETED. RETURN TO START A NEW RUN. 

60 IR = 2 
RETURN 

C THIS RUN HAS BEEN COMPLETED. NO FURTHER RUNS FOLLOW. 

70 IR = 3 
RETURN 

C A FATAL ERROR HAS OCCURED. RETURN AND QUIT. 

80 IR = 4 
RETURN 

C*********************************************************************** 

END 

SUBROUTINE APPLY2 



THIS SUBROUTINE CONTROLS ALL ASPECTS OF CALCULATION OF 
STABILITY DERIVATIVES 

COMMON/MATHEW/NCASES ,ISYMM , IPRINT , JETFLG , IGTYPE , IHINGE 
COMMON/SPIRIT/ NEWMAX , NEWCMU, NOALFA , LOGIC , IR 

CHECK ON STATUS OF CONTROL FLAGS 
10 IHINGE = 0 
NOALFA =1 
NEWCMU = 1 

IFCISYMM .GE. 0 ) GO TO 30 
ISYMM = 0 
WRITE ( 6 * 20 ) 

20 FORMAT( 1H0///16X >41HTHE ISYMM FLAG INDICATED AN ANTI -SYMETRIC , 
1 48H CASE. HOWEVER, IT WILL BE TREATED AS SYMETRIC.) 

EXCECUTE THE FIRST RUN 

FORMULATE THE PROBLEM AS USUAL 
30 CALL STAGE 1 

GO TO ( 40 , 110 , 100 , 110 ), IR 

ADD THE EXTRA FUNDAMENTAL CASE FOR DERIVATIVES DUE TO PITCHING 
40 LOGIC = 1 
CALL STAGE4 

EXECUTE THE PROBLEM SOLUTION STAGE AS USUAL FOR THE FIRST RUN 
LOGIC = 1 
50 CALL STAGE 2 

IFCIR .EQ. 2) GO TO 110 

EXECUTE THE AERODYNAMIC STAGE FOR THE FIRST RUN 
FUNDAMENTAL CASES 
60 LOGIC = 2 
CALL STAGE3 

THE FIRST RUN HAS BEEN COMPLETED 
EXECUTE THE SECOND RUN 

WRITE ( 6 > 70 ) 

70 FORMAT* \W\/ ////////// / 37X>11( 4H**** ) ,2H** / 

1 37X ,46H* SECOND RUN FOR STABILITY DERIVATIVE CASE * / 

2 37X,11(4H**** ) , 2H** ) 

IF THIS IS A SYMETRIC WING, SWITCH 
80 IF (ISYMM .EQ. 0) ISYMM = -1 



IT TO ANTI -SYMETRIC FOR RUN 2 



STORE THE FIRST RUN SOLUTION ON UNIT 1, DEFINE THE FUNDAMENTAL CASES 
FOR YAWING AND ROLLING RATES, AND PRINT THE NEW FUND CASE GEOMETRY. 
90 LOGIC = 2 
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CALL STAGER- 

SET UP AND SOLVE THE MATRIX SYSTEM FOR THE SECOND RUN 
LOGIC = 2 
CALL STAGE2 

I F( IR .EQ. 2) GO TO 110 

CALCULATE AND PRINT THE DERIVATIVES FOR ALL FUNDAMENTAL 
AND COMPOSITE CASES 
LOGIC = 3 

IF! IPRINT .GE. 0) IPRINT = 2 
CALL STAGE3 



C****************************************************** *********** ****** 
C THIS IS THE END OF THE LINE 
100 IR = 1 
RETURN 
C 

C A FATAL ERROR HAS OCCURED. RETURN ABNORMALLY TO MAIN. 

110 IR = 2 
RETURN 

C*********************************************************************** 

END 

SUBROUTINE STAGE 1 



THIS SUBROUTINE READS THE GENERAL GEOMETRY PARAMETERS AND FLAGS, AND 
CONTROLS THE CALLING OF THE SPECIALIZED GEOMETRY SUBROUTINES 

COMMON/MATHEW/NCASES -.ISYMM >IPRINT , JETFLG > IGTYPE » I HINGE 
COMMON/MARK/NROUS >NRONSJ ,NNT ,NJT ,NMAX ,NW( 40 ) ,NJ( 40 ) , IW( 40 ) , I J( 40 ) 
COMMON/SPI RIT/ NEWMAX ,NENCMU ,NOALF A , LOGIC , IR 

CHECK WHETHER THIS IS THE FIRST CMU CASE 
I F ( NEWCMU .GT. 1 I GO TO 50 

IF( ( NROWS .GT. 40) .OR. t NROWS . LT . 3)) GO TO 60 
SECTIONAL INPUT 

10 IFUIGTYPE .EQ. 1 ) . OR . ( IGTYPE 
GO TO 1 20 , 40 , 100 ), IR 



.EQ. 2 ) )CALL SGMAIN( NOALFA ,IR ) 



USER INPUT 

PRINT ERROR MESSAGE BECAUSE IGTYPE HAS THE WRONG VALUE 
20 WRITE ( 6, 30 ) IGTYPE 

30 FORMAT! 1H1///44X >32HTHE IGTYPE FLAG HAS THE VALUE OF, 12/ 

1 44X,37HCNLY THE VALUES 1 OR 2 ARE ACCEPTABLE// 

2 44X , 29HTHIS CASE HAS BEEN TERMINATED) 

GO TO 100 

READ THE COMPOSITE CASE REQUIREMENTS 
40 CALL INCOMP ( NCASES , I R ) 

IF! IR .EQ. 2) GO TO 100 

READ THE CMU DATA 
50 CALL BLONINl JETFLG, IR) 

GO TO ( 60 , 110 > 120 ), IR 
60 CALL BOX J( NEWMAX, IR) 

I F ! IR .EQ. 2) GO TO 50 

RETURN NORMALLY TO THE CONTROL PROGRAM 
70 IR = 1 
GO TO 130 

PRINT ERROR MESSAGE BECAUSE THE NROWS VALUE IS UNACCEPTABLE 
80 WRITE! 6 , 90 ) NROWS 
90 FORMAT! 1H1/55X , 7HNR0WS = ,I3) 



C *********************************************************************** 
C A FATAL ERROR HAS OCCURED. RETURN ABNORMALLY TO MAIN. 

100 IR = 4 

GO TO 130 



THIS RUN HAS BEEN COMPLETED. THANK GOD FOR SMALL BLESSINGS. 

RETURN TO MAIN AND BEGIN A COMPLETELY NEW RUN 
110 IR = 2 

GO TO 130 



C RETURN TO MAIN AND STOP THE EXECUTION 
120 IR = 3 
130 RETURN 

C**************************************************************** ******* 
END 

SUBROUTINE SGMAIN! NOALFA ,IR ) 



THIS SUBROUTINE CONTROLS ALL GEOMETRY CALCULATIONS FOR THE 
SECTIONAL GEOMETRY METHOD 

COMMON/MATHEW/NCASES,ISYMM, IPRINT, JETFLG, IGTYPE, IHINGE 

READ THE WING PLANFORM GEOMETRY DATA 
10 CALL INPTS(IR) 

IF ( IR .EQ. 2) GO TO 100 

IF! IGTYPE .EQ. 1) CALL XLETRl(IR) 

I F ( IR .EQ. 2 ) GO TO 100 

IF! IGTYPE .EQ. 2) CALL XLETR2 

NORMALIZE THE WING PLANFORM GEOMETRY DATA 
20 CALL N0RM1 

READ THE JET SHEET GEOMETRY DATA 
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30 CALL INPUT J HR I 

I F( IR .EQ. 2 ) GO TO 100 

CONSTRUCT THE EVD ELEMENTS 
40 CALL B0XS( IR ) 

IF( IR .EQ. 2) GO TO 100 

CONSTRUCT THE SET OF FUNDAMENTAL GEOMETRIC CASES 

DO °0 N = 1,NCASES 
LCASE = N 

READ THE GEOMETRY FOR THIS CASE 
SO CALL INCASE! LCASE, NOALFA ) 

CONSTRUCT THE CASE DATA 
60 CALL BEE CEE! LCASE > NOALFA ,IR ) 

I F( IR . EQ. 2) GO TO 100 

PRINT THE GEOMETRY AND CONSTRUCTED CASE DATA IF REQUIRED 
I F ( LCASE .EQ. 1) WRITEI6, 70 ) 

70 FORMAT ( 1H1 ) 

80 CALL OUTK LCASE) 

90 CONTINUE 
IR = 2 
RETURN 

AN ERROR HAS OCCURED. RETURN ABNORMALLY TO STAGE 1. 

100 IR = 3 
RETURN 
END 

SUBROUTINE INPTS(IR) 

THIS SUBROUTINE READS THE WING GEOMETRY DATA 
FOR THE SECTIONAL GEOMETRY METHOD 

COMMON/M A RK/NROWS »NROWSJ *NWT ,NJT ,NMAX >NW< 40 ) ,NJ< 40 ) ,IK( 40 ) ,IJ( 40 ) 
COMMON/GEOM1/Y ( 40 ) , CHORD f 40 ) , DELTA! 40 ) ,XB( 600 ) >XI( 600 ) ,DEL( 600 ) , 

1 D ( 40 ) »KK( 600 KITYPE! 600 ) 

COMMON/GEOM2/XLE AD! 40 ) ,XTRAIL( 40 ) ,T ANLE ( 40 ) ,TANTE( 40 ) 
COMMON/SG1/XBW ( 20 , 10 ) ,XB J ( 20 , 10 ) , ICTYPE ( 40 ) > I JTYPE ( 40 ) > 

1 NWTYPE ,NJTYPE 

COMMON/I NDAT/LUN 
DIMENSION Nil 10) 

READ THE SECTIONAL PLANFORM DATA 
10 NWTYPE = 0 

READ! LUN, 20 ) < Y ( K ) ,K = 1 ,NROWS ) 

20 FORMAT! SF10. 6) 

READ(LUN 2 30 ) ! ICTYPE! K),K=l,NROWS) 

30 FORMAT! 4012) 

DO 40 K = 1 jNROWS 

IF! ICTYPE! KJ .GT. NWTYPE) NWTYPE = ICTYPE! K) 

40 CONTINUE 

IF! NWTYPE .GT. 10) GO TO 80 
READ! LUN, 30 )! NI ( N ) ,N=1 , NWTYPE ) 

READ THE CHORDWISE DIVISION DATA FOR EACH ROW TYPE 
DO 50 N = 1, NWTYPE 
NIN = NIIN) 

IF! ( NI N .LT. 1) .OR. (NIN .GT. 20)) GO TO 100 
READ! LUN, 20 ) ( XBW! L ,N ) , L=1 ,NIN ) 

50 CONTINUE 

DEFINE THE NUMBER OF CHORDWISE DIVISIONS FOR EACH ROW 
DO 70 K = l.NRONS 
ICK = ICTYPE! K) 

60 NN(K) = NI(ICK) 

70 CONTINUE 
IR = 1 
RETURN 

AN ERROR HAS OCCURED. PRINT A MESSAGE AND QUIT. 

80 WRITE! 6, 90 ) NWTYPE 

90 FORMAT! 1H1/45X , 26HNUMBER OF WING ROW TYPES =,I3) 

IR = 2 
RETURN 

100 WRITE! 6, 110 ) NIN,N 

110 FORMAT! 1H1/38X, 13, 38H WING ELEMENTS PRESCRIBED FOR ROW TYPE, 13) 

IR = 2 
RETURN 
END 

SUBROUTINE INPUTJ(IR) 

THIS SUBROUTINE READS THE JET GEOMETRY INPUT 
FOR THE SECTIONAL GEOMETRY METHOD 

COMMON/MATHEW/NCASES ,ISYMM ,IPRINT , JETFLG ,IGTYPE , I HINGE 
COMMON/MARK/NROWS,NROWSJ ,NWT ,NJT ,NMAX,NW( 40 ) ,NJ( 40 ) , IW( 40 ) ,1 J! 40 ) 
COMMON/SGl/XBW! 20,10 ),XBJ( 20 , 10 ), ICTYPE ( 40 ) , I JTYPE ( 40 ) , 

1 NWTYPE, NJTYPE 

COMMON/INDAT/LUN 
DIMENSION NI 1 10 ) 

READ THE TYPE OF DIVISION FOR EACH ROW 
10 NJTYPE = 0 
NROWSJ = 0 

IF! JETFLG .NE. 0) GO TO 90 

READ! LUN, 20 ) ( I JTYPE ( K ) ,K = 1 ,NROWS ) 

20 FORMAT! 4012) 

DO 30 K = 1 ,NROWS 
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IF(IJTYPE(K) .GT. NJTYPE ) NJTYPE = IJTYPE(K) 
IFdJTYPE(K) .NE. 0) NROWSJ = NROWSJ + 1 
30 CONTINUE 

I F ( NJTYPE .GT. 10) GO TO 110 
READ THE NUMBER OF CHORDWISE DIVISIONS IN EACH ROW TYPE 
READ) LUN, 40 ) ( NI ( N ) ,N=1 , NJTYPE ) 

40 FORMAT ( 1012 ) 

READ THE CHORDWISE DIVISION DATA FOR EACH ROW TYPE 
DO 60 N = 1, NJTYPE 
NIN = NI(N) 

IF! (NIN .LT. 1) .0^. (NIN . GT . 20)) GO TO 130 
READ1LUN, 50 ) ( XB Jt L >N ) , L = UNIN ) 

50 FORMAT ( Sr 10 . 6 ) 

60 CONTINUE 

DEFINE THE NUMBER OF CHORDWISE DIVISIONS FOR EACH ROW 
DO 80 K = 1, NROWS 
NJ( K ) = 0 

IF(IJTYPE(K) .EQ. 0) GO TO 80 
IJK = I JTYPE ( K J 
70 NJ( K ) = NI ( IJK ) 

80 CONTINUE 

CHECK FOR ROW CONSISTENCY ON EITHER SIDE OF JET 
ICOUNT = 1 

.EQ. 0 )ITEST = 0 
.GT. 0 )ITEST = 1 
= 2, NROWS 

0 )ICOMP = 0 
0 IICOMP = 1 
ITEST )GO TO _ 

3 )GO TO 170 






160 



0 )ITEST = 0 
0 )ITEST = 1 



+ 1 



IF(NJ(1) 

I F ( NJ( 1 ) 

DO 150 K 
IF( NJ( K ) 

I F( NJ( K ) 

IFdCOMP .EQ. 

I F ( ICOUNT .LT 
ICOUNT = 1 
IF ( NJ( K ) .EQ. 

I F ( N J ( K ) .GT. 

GO TO 150 

160 I COUNT = ICOUNT 
150 CONTINUE 

I F ( ICOUNT .LT. 3) GO TO 170 

IR = 1 

RETURN 

THERE IS NO JET FOR THIS RUN 
90 DO 100 K = l,NROWS 
I JTYPE ( K ) = 0 
NJ( K ) = 0 
100 COffTINUE 
IR = 1 
RETURN 

AN ERROR HAS OCCURED . PRINT A MESSAGE AND QUIT. 

110 WRITE ( 6 , 120 ) NJTYPE 

120 FORMAT ( 1H1/25HNUMBER OF JET ROW TYPES = ,I3) 

IR = 2 
RETURN 

130 WRITE ( 6 » 140 ) NIN »N 

140 FORMAT! 1H1/33X, 13 >37H JET ELEMENTS PRESCRIBED FOR ROW TYPE, 13) 

IR = 2 
RETURN 

170 WRITE ( 6 » 190 ) 

190 FORMAT ( lHl , 29H3 ROW CONTINUITY RULE FAILURE) 

IR = 2 
RETURN 
END 

SUBROUTINE XLETRldR) 

THIS SUBROUTINE READS THE LEADING AND TRAILING EDGE COORDINATES 
AT SPANMISE STATIONS CONNECTED BY STRAIGHT LEADING AND TRAILING EDGES 
AND INTERPOLATES TO GET THE COORDINATES AT INTERMEDIATE SECTIONS 

COMMON/MARK/NROWS, NROWSJ, NWT ,NJT ,NMAX,NW( 40 ),NJ( 40 ) ,IW! 40 ) ,1 J( 40 ) 
COMMON/GEOM1/Y ( 40 ) ,CHORD( 40 ), DELTA! 40 ) >XB( 600 ) ,XI( 600 ) ,DEL( 600 ) , 

1 D ( 40 ) >KK ( 600 ) > ITYPE ( 600 ) 

COMMON/GEOM2/XLEAD! 40 ) ,XTRAIL( 40 ) ,TANLE( 40 ) ,TANTE( 40 ) 

COMMON/INDAT/LUN 

DIMENSION YP ( 40 ) >XLE ( 40 ) ,XTRl 40 ) 

READ XLEAD AND XTRAIL 
NX = 0 

DO 30 N = UNROWS 

READtLUN, 10 )YP ( N ) ,XLE ( N ) ,XTR( N ) 

10 FORMAT ( 3F10 . 6 ) 

20 I F ( Y P ( N ) .GT. 1.1) GO TO 40 
NX = NX + 1 
30 CONTINUE 

CHECK WHETHER THE Y VALUES ARE REALISTIC 
40 IF( ABS( YP( 1 )-Y( 1 ) ) .GT. O.OOODGO TO 110 

IF ( ABS( YP( NX ) -Y ( NROWS ) ) .GT. O.OOODGO TO 110 

READ THE EXTRA 9 CARD IF NROWS CARDS HAVE BEEN INPUT 
IF ( NX .EQ. NROWS) READ( LUN, 10 ) EXTRA 9 

INTERPOLATE FOR XLEAD AND XTRAIL AT THE INTERMEDIATE SECTIONS 
K = 0 

DO 100 N = UNX 
50 K = K + 1 

IF1K .GT. NROWS) GO TO 110 
IF! ABS(YP(N)-Y(K) ) .GT. O.OOODGO TO 70 
XLE AND XTR WERE INPUT FOR ROW K 
60 XLEAD(K) = XLE(N) 

XTRAIL! K ) = XTR! N ) 
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GO TO 100 

XLE AND XTR MUST BE INTERPOLATED FOR RON K 
70 NM1 = N - 1 

80 YRATIO = !Y(K)-YP(N)) / ! YP( NM1 )-YP ( N ) ) 

XLE ADI K ) = XLE I N ) + YRATIO * ( XLE ( NM1 )-XLE ( N ) ) 

90 XTRAIL(K) = XTR(N) + YRATIO * ( XTRI NM1 )-XTR( N ) ) 

GO TO 50 
100 CONTINUE 
IR = 1 
RETURN 

AN ERROR HAS OCCURED. PRINT A MESSAGE AND RETURN. 

110 NRITE ( 6 ♦ 120 ) 

120 FORMAT! 1H1///20X,38HAN INCONSISTENCY HAS BEEN FOUND IN THE > 

1 42H SECTIONAL LEADING AND TRAILING EDGE INPUT) 

IR = 2 
RETURN 
END 

SUBROUTINE XLETR2 

THIS SUBROUTINE READS THE FUNDAMENTAL PLANFORM PARAMETERS FOR A 
TRAPEZOIDAL WING, AND CALCULATES THE LEADING AND TRAILING EDGE 
COORDINATES AT EACH Y STATION. NOTE THAT THE PLANFORM OUTLINE 
MUST BE SYMETRIC. 

COMMON/MARK/NROWS ,NR0WSJ >NWT ,NJT ,NMAX >NW( 40 ) ,NJ( 40 ) »IW( 40 ) ,IJ( 40 ) 
COMMON/JOHN/ ARE A , SPAN , ARATIO >TR, SWEEP ,CRE F, CMAC ,CBAR , XMC , XCG 
COMMON/GEOM1/Y ( 40 ) , CHORD! 40 I, DELTA! 40 ) ,XB! 600 ) ,XI ( 600 ) >DEL( 600 ) , 

1 D ( 40 KKK! 600 ) >ITYPE( 600 I 

C0MM0N/GE0M2/XLE AD! 40 ) ,XTRAIL( 40 ) ,TANLE ( 40 ) ,TANTE ( 40 ) 
COMMON/INDAT/LUN 

READ THE FUNDAMENTAL PLANFORM PARAMETERS 
READ ( LUN * 10 ) ARATIO , SWEEP ,TR 
10 FORMAT l 4F10 . 6 ) 

COMPUTE THE GENERAL PLANFORM CHARACTERISTICS 
B2 = SPAN / 2.00 
SW = SWEEP / 5 7.295779 
20 CROOT = 2.0 * SPAN / ( < 1 . 0+TR )*ARATI0 ) 

AREA = tl.O+TR) * CROOT * B2 

XLB2 = 0.250 * (1.0-TR) * CROOT + B2 * TAN! SW ) 

30 CMAC = 2.0 * CROOT * (1.0 + TR + TR*TR) / ( 3 . 0*( 1 . 0+TR ) ) 

IF! CREF ,E0. 0.0) CREF = CMAC 
CBAR=ARE A/SPAN 

COMPUTE THE LEADING AND TRAILING EDGE COORDINATES 
40 DO 60 K = 1, NROWS 
YBAR = Y ( K ) 

I F ( YBAR .LT. 0.0) YBAR = -YBAR 
XLE AD! K ) = XLB2 * YBAR 
50 C = CROOT * ( 1.0-! 1.0-TR )*YBAR ) 

XTRAIL(K) = XLEAD(K) + C 
60 CONTINUE 
RETURN 
END 

SUBROUTINE NORM1 

THIS SUBROUTINE NORMALIZES ALL WING PLANFORM GEOMETRY BY SPAN/2 

COMMON/MARK/NROWS >NROWSJ ,NWT,NJT >NMAX,NW( 40 ) ,NJ( 40 ) ,IW( 40 ) ,IJ( 40 ) 
COMMON/JOHN/ AREA , SPAN, ARATIO >TR , SWEEP , CREF ,CMAC,CBAR ,XMC,XCG 
COMMON/GEOM1/Y ( 40 ) >CHORD( 40 ), DELTA! 40 ) ,XB( 600 ) ,XI ( 600 ) ,DEL( 600 ) , 

1 D( 40 ) >KK( 600 ) ,ITYPE( 600 I 

COMMON/GEOM2/XLE AD! 40 ) ,XTRAIL( 40 ) ,TANLE ( 40 ) ,TANTE ( 40 ) 

10 B2 = SPAN / 2. CO 
AREA = AREA / B2**2 
CREF = CREF / B2 
20 XMC = XMC / B2 
XCG = XCG / B2 
DO 40 K = 1 , NROWS 
30 XLEAD(K) = XLEAD(K) / B2 
XTRAIL(K) = XTRAIL(K) / B2 
40 CONTINUE 
SPAN = 2.00 

ARATIO = SPAN * SPAN / AREA 

RETURN 

END 

SUBROUTINE BOXS(IR) 

THIS SUBROUTINE CONSTRUCTS THE GEOMETRIC PARAMETERS FOR ALL THE 
EVD ELEMENTS ON THE WING AND JET 

COMMON/MATHEW/NCASES ,ISYMM ,IPRINT > JETFLG ,IGTYPE , I HINGE 
COMMON/MARK/NROWS, NROWS J ,NWT ,NJT ,NMAX,NW( 40 ) ,NJ( 40 ) ,IW( 40 ) ,1 J( 40 ) 
COMMON/JOHN/ ARE A , SPAN , ARATIO ,TR , SHEEP >CREF ,CMAC ,CBAR ,XMC ,XCG 
COMMON/GEOM1/Y ( 40 ), CHORD! 40 ), DELTA! 40 ) ,XB( 600 ) ,XI( 600 ) ,DEL( 600 ) , 

1 D ( 40 ) >KK( 600 ),ITYPE( 600 ) 

COMMON/GE OM2/XLE AD ( 40 ) ,XTRAIL( 40 ) >TANLE ( 40 ) >TANTE ( 40 ) 

COMMON/SG 1/XBW ( 20,10 ),XBJ( 20,10 ) , ICTYPE ( 40 ) ,1 JTYPE ( 40 ) , 

1 NWTYPE ,NJTYPE 

CONSTRUCT THE ELEMENTS ON THE WING 

COMPUTE SECTIONAL DATA 

10 CHORD! 1) = XTRAIL(l) - XLEAD(l) 

DELTA! 1 ) = 1.00 - Y( 1 ) 

CMAC = CHORD! 1 )**2 * DELTA! 1 ) 

DO 30 K = 2, NROWS 

20 CHORD! K ) = XTRAIL(K) - XLEAD(K) 

DELTA! K ) = Y(K-l) - Y(K) - DELTA! K-l ) 
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IF ( DELTA) K ) . LT . 0.0) GO TO 190 
CMAC = CMAC + CHORD) K )**2 * DELTA) K) 

30 CONTINUE 

CHECK THE VALIDITY OF THE SECTIONAL ALLIGNMENT 
YD = Y) NROWS) - DELTA) NROWS) 

I F ( ( ISYMM .GE. 0) .AND. ( ABS) YD ) .GT. 0. 0001)1 GO TO 190 
I F) ( ISYMM .EQ. I) .AND. )ABS)YD+1.0) .GT. 0.000D) GOTO 190 
DSUM = DELTA) I) 

DO 35 K = 2, NROWS 
YL = Y(K) + DELTA) K ) 

YR = Y( K-l ) - DELTA) K-l ) 

IF) ABS(YR-YL) .GT. 0.0001) GO TO 190 
DSUM = DSUM + DELTA) K) 

35 CONTINUE 

IF) ABS) DSUM-0.50 ) .GT. 0.0001) GO TO 190 

CMAC = 2.0 * CMAC / AREA 

IF) ISYMM .LT. I) CMAC = 2.0 * CMAC 

IF) CREF .LT. 0.0001) CREF = CMAC 

CALL TANS) TANLE ,XLEAD ,Y , NROWS) 

COMPUTE ALL CHORDWISE ELEMENT PARAMETERS FOR EACH SECTION 
1 = 0 

DO 90 K = I, NROWS 
COMPUTE X-COORDINATES 
NWK = NW ( K ) 

DO 50 L = I, NWK 
I = I + I 
ICK = ICTYPE(K) 

40 XB( I ) = XBW) L,ICK) 

50 CONTINUE 

COMPUTE ALL OTHER PARAMETERS 
1=1- NWK 
I W( K ) = 1 + 1 
DO 80 L = 1 , NWK 
1 = 1 + 1 
60 KK( I ) = K 

DEL) I ) = XB( I + I ) - XBt I ) 

70 XI ( I ) = XLEAD(K) + XB(I) * CHORD) K ) 

ITYPEII ) = 10 
80 CONTINUE 

REDEFINE THE LAST DEL IN THIS SECTION, AND DEFINE THE L.E. EVD TYPE 
DEL) I ) = 1.00 - XB( I ) 

INK = I W( K ) 

ITYPE ( INK ) = 20 
90 CONTINUE 
NWT = I 

CONSTRUCT THE ELEMENTS ON THE JET SHEET 

COMPUTE ALL CHORDWISE ELEMENT PARAMETERS FOR EACH SECTION 
I F ( JETFLG .NE. 0) GO TO 180 
DO 170 K = 1, NROWS 
COMPUTE X-COORDINATES 
I J( K ) = 0 
100 NJK = N J ( K ) 

I F ( NJK .EQ. 0) GO TO 170 
DO 120 L = I, NJK 
I = I + I 
IJK = IJTYPE(K) 

110 XB) I 1 = XBJl L > IJK ) 

120 CONTINUE 

COMPUTE ALL OTHER PARAMETERS 
1=1- NJK 
130 IJ(K ) = I + I 

DO 160 L = 1,NJK 
1=1 + 1 
140 KK( I ) = K 

DEL) I ) = XB) I+I ) - XB) I ) 

150 XI(I) = XLEAD(K) + XB) I ) * CHORD) K ) 

ITYPE) I ) = 10 
160 CONTINUE 

REDEFINE THE LAST DEL AND EVD TYPE AND THE D VALUE FOR THIS SECTION 
DE L ( I ) = I.OEIO 
ITYPE ( I ) = 30 
D ( K ) = XIII) - XT RAIL) K ) 

170 CONTINUE 
180 NMAX = I 

IFINMAX .GT. 600) GO TO 210 
NJT = NMAX - NWT 
IR = I 
RETURN 

AN ERROR HAS OCCURED. PRINT A MESSAGE AND QUIT. 

190 WRITE t 6 * 200 ) 

200 FORMAT) 1H1/38X,44HPLEASE CHECK YOUR SECTION LOCATION )Y) INPUT) 

IR = 2 
RETURN 

210 WRITE) 6, 220 ) NMAX 

220 FORMAT) 1HI/48X, 14, 2IH IS TOO MANY ELEMENTS) 

IR = 2 
RETURN 
END 

SUBROUTINE BOXJ) NEWMAX,IR ) 

THIS SUBROUTINE COMPUTES THE JET BLOWING FACTOR CMUP 

COMMON/MARK/NROWS >NROWSJ ,NWT , NJT , NMAX, NW) 40 ) ,NJ( 40 ),IW( 40 ) >IJ< 40 ) 
C0MM0N/GE0M1/Y t 40 ) , CHORD) 40 ), DELTA) 40 ) ,XB( 600 ),XI) 600 ) ,DEL( 600 ) , 

1 D ( 40 ),KK( 600), ITYPE) 600 ) 
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COMMON/JCASE/CMU* 40 ) ,CMUP< 40 ) , CMUPP* 40 ) 

COMPUTE THE NEW CMUP AND SAVE THE OLD VALUES AS CMUPP 
10 NEWMAX = NMAX 
ICOUNT = 0 
DO 30 K = 1, NROWS 
CMUPP* K ) = CMUP(K) 

IF ( NJ( K ) .EQ. 0 ) GO TO 30 
I F ( CMU ( K ) .LT. 0.0001) GO TO 20 
CMUP(K) = 2.00 / * CHORD* K )*CMU* K ) ) 

GO TO 30 

20 ICOUNT = ICOUNT + 1 
CMUPlK) =0.00 
30 CONTINUE 

WRITE ( 6 * 40 ) * K, CMU* K),K=1, NROWS) 

40 FORMAT* 1H1 ,40X, 10* 4H**** )/ 41X, 

1 40H* SECTIONAL JET BLOWING COEFFICIENTS */41X , 10( 4H**** )// 

2 53X^ 3HROW , 5X , 3HCMU , 40 ( /53X , I 2 , F 1 2 . 6 ) ) 



Z 53X , 3HROW , 5X , 3HCMU , 40 < /53X , 1 2 , F 12 . 

IF( ICOUNT .EQ. 0) GO TO 50 
I F( ICOUNT .LT. NROWSJ) GO TO 60 



NEWMAX = NWT 
50 IR = 1 
RETURN 

AN ERROR HAS OCCURED. PRINT A MESSAGE AND TRY AGAIN. 

60 WRITE ( 6 , 70 ) 

70 FORMAT* 1H0,43X,35HA ZERO VALUE OF CMU HAS BEEN INPUT., 

1 33H THIS CMU CASE HAS BEEN IGNORED. ) 

IR = 2 
RETURN 
END 

SUBROUTINE TANS* TAN, X,Y ,NROWS ) 

THIS SUBROUTINE COMPUTES THE TANGENT OF THE LEADING OR TRAILING EGDE 
SWEEP ANGLE AT THE CENTERLINE OF EACH SECTION. IT IS ACCURATE FOR 
SECTIONS WITH STRAIGHT EDGES IN GROUPS OF THREE OR MORE. 

IT IS ONLY APPROXIMATE FOR CURVED EDGES. 

IT MAY RESULT IN ERRORS FOR SECTIONS ADJACENT TO WING BREAKS, 

IF STRAIGHT EDGES ARE IN ADJACENT GROUPS OF ONLY ONE OR TWO. 

DIMENSION TAN* 40 ) ,X* 40 ) ,Y* 40 ) ,S* 40 ) 

SLOP* XR,XL , YR ,YL I = * XR-XL ) / * YR-YL ) 



DO 50 K 
KR = K-l 
KL = 

IF* K 
KR = 

KL = 



1 ,NROWS 



K 

.GT. 1) GO TO 30 
1 

30 SfK) = SLOP* X*KR),X*KL),Y(KR),Y(KL) ) 

50 CONTINUE 

DO 200 K = 1 ,NROWS 
IF* K .LT. 3 ) GO TO 150 
IF* K .EQ. NROWS) GO TO 150 
IF ( K .EQ. * NROWS- 1 ) ) GO TO 160 
CHECK WHETHER THE RIGHT OR LEFT SIDES ARE STRAIGHT 
IF* ABS* S* K ) - SI K- 1 ) ) .LT. 0.001) GO TO 150 
IF* ABS* S( K + l ) - S( K + 2 ) ) . LT . 0.001) GO TO 160 
NEITHER SIDE IS CONCLUSIVELY STRAIGHT - CHECK FURTHER LEFT AND RIGHT 
IF ( K .EQ. 3 ) GO TO 160 
I F< K .EQ. * NROWS- 2 ) ) GO TO 150 
IF* ABS* S*K-1 ) - S( K-2 ) ) . LT . 0.001) GO TO 160 
IF* ABS* S( K + 2 ) - S* K + 3 ) ) . LT . 0.001) GO TO 150 
THE TRUE SHAPE CANNOT BE DETERMINED - GIVE UP AND TAKE THE AVERAGE 
TAN* K ) = * S( K ) + S(K + D) / 2.00 
GO TO 200 

THE RIGHT EDGE IS STRAIGHT 
150 TAN* K ) = S*K) 

GO TO 200 

THE LEFT EDGE IS STRAIGHT 
160 T AN * K ) = S* K + l ) 

200 CONTINUE 
RETURN 
END 

SUBROUTINE INCASE * LCASE , NO ALFA ) 

THIS SUBROUTINE REAPS THE FUNDAMENTAL GEOMETRIC CASE DATA 

COMMON/MARK/NROWS, NROWSJ, NWT, NJT, NMAX, NW* 40 ),NJ< 40 ) , IW* 40 ) , I J( 40 ) 
COMMON/FCASE 1/INPUTT , INPUTH , INPUTD , INPUTC , INPUTB 
C0MM0N/FCASE2/TST * 40,10 ),HL*40,10 ),DJ*40 ) , ACTE < 40 ) ,AC* 20,40 ), 

1 XHB(4,40 ), BET* 4,40 ),IFS< 4 ,40 ) , ICT * 40 ) , IHT ( 40 ),NCT,NHT 

COMMON/INDAT/LUN 
DIMENSION NI( 10), DUMMY* 40) 

INITIALIZE SECTIONAL DATA 
DO 30 K = 1, NROWS 
10 TST*K, LCASE) =0.00 
HL(K, LCASE) = 0.00 
DJ(K) = 0.00 
ACTE * K ) = 0.00 
ICT(K) = 0 
IHT* K ) = 0 

INITIALIZE THE CAMBER ANGLES 
NWK = NW*K) 

DO 20 L = 1 »NWK 
AC* L,K) = 0.00 
20 CONTINUE 
30 CONTINUE 

INITIALIZE THE HINGE DATA 
DO 50 N = 1, NROWS 
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DO 40 L = 1,4 
XHB) L,N) =6.00 
BEK L,N ) = 0.00 
40 CONTINUE 
50 CONTINUE 

I F C C LCASE .EQ. 1) .AND. < N0ALFA .GT. 0)) RETURN 

READ FUNDAMENTAL CASE CONTROL FLAGS 

READ* LUN, 60 ) INPUTT , INPUTH , INPUTD , INPUTC , INPUTB 
60 FORMAT ) 512 ) 

READ SECTIONAL TWIST, HEIGHT AND JET DEFLECTION DATA 

I F ( INPUTT .NE. 0) READ) LUN , 70 ) ( TST ) K , LCASE ) >K=1 ,NR0WS ) 

70 FORMAT ) 8F10 . 6 ) 

IF( INPUTH .NE. 0) READ( LUN, 70 ) ( HL( K , LCASE ) ,K = 1 ,NR0WS ) 

IF) INPUTD .EQ. 0) GO TO 90 
READ( LUN, 70 ) ) DUMMY ) K ) ,K =1 ,NR0WSJ ) 

DISTRIBUTE THE DUMMY VALUES PROPERLY IN THE DJ ARRAY 
KP = 0 

DO 80 K = 1 ,NROWS 
IF(NJIK) . EQ. 0) GO TO 80 
KP = KP + 1 
DJ ( K ) = DUMMY) KP ) 

80 CONTINUE 

READ THE CAMBER ANGLES, IN DEGREES 
90 IF) INPUTC .EQ. 0 I GO TO 160 

READ( LUN, 100 ) ) ICT) K ) ,K = 1 ,NR0WS ) 

100 FORMAT ( 46l2 ) 

NCT = 0 

DO 110 K = l,NROWS 
IF ( ICT( K ) . EQ. 0) GO TO 110 
IF(ICT)K) .GT. NCT] NCT = ICT(K) 

ICK = ICT ) K ) 

NI( ICK I = NW ( K ) 

110 CONTINUE 

DO 150 N = 1 ,NCT 
NIN = NUN) 

120 READ) LUN , 70 ) ) AC ) L ,N ) , L = 1 ,NIN ) 

150 CONTINUE 

140 IF ) NROWSJ .GT. 0) READ) LUN, 70 ) ( DUMMY < K ),K=1 ,NROWSJ ) 

DISTRIBUTE THE DUMMY VALUES P&OPERLY IN THE ACTE ARRAY 
KP = 0 

DO 150 K = 1 ,NROWS 
IFCNJIK ) .EQ. 0 ) GO TO 150 
KP = KP + 1 
ACTE(K) = DUMMY) KP) 

150 CONTINUE 

READ THE HINGE LOCATION, TYPE AND TURNING ANGLE DATA 
160 IF) INPUTB .EQ. 0) GO TO 210 
170 READ) LUN, 100 ) ( IHT) K ) ,K = 1 ,NROWS ) 

NHT = 0 

DO 180 K = 1 ,NROWS 

IF) IHT) K ) .GT. 

180 CONTINUE 

DO 200 N = 1 ,NHT 

READ(LUN, 196 ) ( XHB) L »N ) ,1 FS( L ,N ) ,BET (L,N),L = 1,4) 

190 FORMAT (4(F10.6,Il,F9.6l ) 

200 CONTINUE 
210 RETURN 
END 

SUBROUTINE BEECEE) LCASE ,NOALFA ,IR ) 

THIS SUBROUTINE CONSTRUCTS THE BOUNDARY CONDITION ARRAYS FOR THE 
FUNDAMENTAL GEOMETRIC CASES 

COMMON/MARK/NROWS ,NROWSJ ,NWT ,NJT ,NMAX ,NW( 40 ) ,NJ( 40 ) ,IW( 40 ) ,1 J) 40 ) 
COMMON/GEOMl/Y) 40 ) , CHORD) 40 >, DELTA) ^0 ) ,XB( 606 ) ,XI ( 660 ) , DEL) 600 ) , 

1 D( 40 ) ,KK( 600 ) , ItYPE ( 600 ) 

COMMON/FC ASE 1/INPUTT , INPUTH , INPUTD , INPUTC ,IN D UTB 
C0MM0N/FCASE2/TST) 40,10 ) ,HL) 40,10 ) ,DJ( 40 I , ACTE) 40 ), AC) 20,40 ) , 

1 XHB) 4,46 ) ,BET) 4,46 ) ,IES( 4 ,40 ) ,ICT( 40 ) ,IHT ( 46 ) ,NCT ,NHT 

C 0 MMON/ FCASE5/EPS) 600,10 ),BETA( b 6 o , 10 ) ,THEt A) 40 , 10 ) ,THS( 40,10 ) 
DIMENSION NH( 40 ) 

INITIALIZE THE BOUNDARY CONDITION ANGLES 
DO 20 I = 1 ,NMAX 
10 EPS) I, LCASE) = 0.00 
BETA) I , LCASE ) = 0.00 
20 CONTINUE 

DO 50 K = 1 ,NROWS 
THETA) K , LCASE ) = 0.00 
THS(K, LCASE ) = 0.00 
30 CONTINUE 

DEFINE THE ANGLES FOR THE ANGLE-OF-ATTACK FUNDAMENTAL CASE 
IF) ( LCASE .GT. 1) ,0R. (NOALFA .EQ. 0)) GO TO 60 
DO 40 I = 1 , NWT 
EPS) 1,1) = 1.00 
40 CONTINUE 

DO 50 K = 1 ,NROWS 

IF(NJ)K) .GT. 0 ) THETA) K , 1 ) = 1.000 
50 CONTINUE 
IR = 1 
RETURN 

DEFINE THE ANGLES FOR ALL REMAINING FUNDAMENTAL CASES 
CAMBER CONTRIBUTION 



NHT) NHT = IHT(K) 
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60 IFdNPUTC .EQ. 0) GO TO 110 
1 = 0 

DO 100 K = 1,NR0WS 
IF(NJ(K) .EQ. 0J GO TO 70 
THETA( K > LCASE ) = ACTE(K) 

70 NWK = NW(K) 

I F ( ICT ( K ) .EQ. 0) GO TO 90 
DO 80 L = 1,NWK 
1 = 1 + 1 
ICK = ICT(K) 

EPSd, LCASE) = AC ( L , ICK ) 

80 CONTINUE 
GO TO 100 
90 I = I + NWK 
100 CONTINUE 

TWIST CONTRIBUTION 
110 IF( INPUTT .EQ. 0 ) GO TO 160 
1 = 0 

DO 150 K = 1 >NR0WS 
I F ( N J ( K ) .EQ. 0 ) GO TO 120 

THETAt K > LCASE ) = THETA( K , LCASE ) + TST(K, LCASE) 
120 NWK = NW( K ) 

DO 190 L = 1 ,NWK 
1 = 1 + 1 

130 EPSd, LCASE) = EPS(I, LCASE) + TST(K, LCASE) 

190 CONTINUE 
150 CONTINUE 

FLAP AND SLAT DEFLECTION CONTRIBUTION 
160 IFdNPUTB .EQ. 0 ) GO TO 320 



SUM UP THE TOTAL SLAT ANGLE AND FIND THE NUMBER OF HINGES ON EACH ROW 
DO 190 K = l,NROWS 
NH( K ) = 0 

E q. 0) GO TO 190 

1,9 



0.001) GO TO 180 

1 

0) THS(K, LCASE) = THS(K, LCASE) + BET ( L ,N ) 



I F ( I HT ( K ) 

DO 180 L = 

170 N = IHT(K) 

IF(XHB(L,N) .LT 
NH( K ) = NH(K) + 

IF(IFS(L,N) .GT 
180 CONTINUE 
190 CONTINUE 

COMPUTE INCIDENCE OF EACH ELEMENT AND FIND TURNING ANGLE AND EVD TYPE 
FOR EACH HINGE ELEMENT 
1 = 0 

DO 310 K = l,NROWS 
NWK = NW ( K ) 

N = IHT(K) 

200 IF( N .EQ. 0) GO TO 300 
LSTART = 1 
B = 0.0 
NHK = NH( K ) 

210 IF( NHK .EQ. 0) GO TO 360 
CYCLE THE HINGE POINTS IN CHORDWISE ORDER 
DO 270 LH = 1,NHK 

CYCLE THE VORTEX POINTS IN CHORDWISE ORDER, LOOKING FOR NEXT HINGE 
DO 250 L = LSTART, NWK 
1 = 1 + 1 

CHECK ON RELATIVE LOCATION OF VORTEX POINT AND HINGE POINT 
220 XDIFF = XHB(LH,N) - XBd ) 

IF( ABS(XDIFF ) . LT . 0.001) GO TO 230 
IF( XDIFF .GT. 0.001) GO TO 290 
IF( XDIFF .LT. -0.001) GO TO 360 
THE ITH VORTEX POINT IS A HINGE POINT 
230 B = B + BET( LH >N ) 

BETA( I , LCASE ) = BET<LH,N) 

EPSd, LCASE) = EPSd, LCASE) - THSCK, LCASE) + B 
I TYPE ( I ) = 92 

IF(IFS(LH,N) .GT. 0) ITYPE(I) = 91 
GO TO 260 

THE ITH VORTEX POINT IS NOT A HINGE POINT 
290 EPSd, LCASE) = EPSd, LCASE) - THS(K, LCASE) + B 
250 CONTINUE 

260 LSTART = I - IW( K ) + 1 
270 CONTINUE 

DEFINE THE INCIDENCE ANGLE FOR REMAINING POINTS BEHIND THE LAST HINGE 
IF( LSTART .EQ. NWK) GO TO 290 
LSTART = LSTART + 1 
DO 280 L = LSTART, NWK 
1 = 1 + 1 

EPSd, LCASE) = EPSd, LCASE) - THS(K, LCASE) + B 
280 CONTINUE 

COMPUTE THE EFFECT OF THE HINGES ON THE JET ANGLE 
290 IF( NJ( K ) .GT. 0) THETAI K , LCASE ) = THETA( K , LCASE )-THS< K, LCASE )+B 
GO TO 310 
300 I = I + NWK 
310 CONTINUE 

JET DEFLECTION CONTRIBUTION 

320 IF( INPUTD .EQ. 0 ) GO TO 350 
DO 390 K = l,NROWS 
IF( NJ( K ) .EQ. 0) GO TO 390 
I = I J( K ) 

330 BETAd, LCASE) = DJ(K) 

IF( ABS( DJI K ) ) .GT. 0.0001) ITYPE(I) = 93 
THETAt K, LCASE ) = THETA* K , LCASE ) + DJ(K) 

390 CONTINUE 
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350 IR = 1 
RETURN 

AN ERROR HAS OCCURED. 



PRINT A MESSAGE AND QUIT. 



360 WRITE ( 6 * 370 ) LCASE ,K >N 

370 FORMAT ( 1H1///45X , 26HFUNDAMENTAL GEOMETRIC CASE, 13/ 

1 18X,50HAN INCONSISTENCY HAS BEEN FOUND IN THE HINGE INPUT, 

2 1SH DATA FOR WING ROW,I3,10H, ROW TYPE, 13) 

I R ” 2 

RETURN 

END 

SUBROUTINE OUTll LCASE) 

THIS SUBROUTINE PRINTS OUT THE GEOMETRIC DATA DERIVED FROM THE 
SECTIONAL METHOD INPUT 

COMMON/MATHEW/NCASES »ISYMM , IPRINT , JETFLG ,IGTYPE ,IHINGE 

CO? 1! iON/M A RK /NROXS , NROWS J ,NWT ,NJT ,NMAX,NW( 40 ) ,NJ< 40 ),IW( 40 ) ,IJ( 40 ) 

COMMON /LUKE/ TITLE! 20) 

COM, MON/JOHN/ ARE A , SPAN ,ARATIO,TR .SWEEP ,CREF , CMAC ,CBAR >XMC,XCG 
COMMON/GEOM1/Y ( 40 ) , CHORD ( 40 ) .DELTA! 40 I ,XB! 600 ) ,XIl 600 ) ,DEL( 600 ) > 

1 D ( 40 ) ,KK! 600),ITYPE(600 ) 

COMMON/GEOM2/XLE AD ( 40 ) .XTRAIL ( 40 ) ,TANLE ( 40 ) *T ANTE l 40 ) 

COMMQN/FC ASE 2/T ST ( 40 ,10 ) ,HL! 40 ,10 ) ,DJ( 40 ) ,ACTE! 40 ) ,AC( 20,40 ) , 

1 XHB! 4,40 ) , BET ( 4,40 ) ,IFS! 4,40 ) ,ICT! 40 ) ,IHT( 40 ) ,NCT ,NHT 

COMMON/FCASE3/EPS! b00,10 ) ,BEtA( b00,10 ) ,THET A( 40 , 10 ) ,THSl 40 , 10 ) 
COMMON/INDATA/ARE, SPA, CRE,XM, CMA, XC,NRO,NC,ISY,IPR, JET, IGT,IHI 

PRINT CASE TITLE AND GENERAL GEOMETRIC PARAMETERS 
I FC LCASE .GT. 1 ) GO TO 60 
10 WRITE ( 6 , 20 )TITLE 
20 FORMAT! 1H1 ,39X,10l 4H**** )/ 

1 40X,40H* EVD JET - WING COMPUTER PROGRAM */ 

2 40X , 10 ( 4H**** )///20X , 20 A4 ) 

CMA = CMAC * SPA / 2.0 

30 WRITE l 6 , 40 ) AREA , ARE , SPAN , SPA ,CREF ,CRE ,XMC ,XM , CMAC , CMA ,ARATIO , 

1 ARATlO ,XCG ,XC 

40 FORMAT ( 1H0//54X ,4HUS£ D , 1 IX ,5H INPUT / 

1 41X , 6HA Re A =,2F15.6 / 41X,6HSPAN =,2F15.6 / 

2 41X, 6HCREF =,2F15.b / 42X,5HXMC =,2F15.6 / 

3 41X , bHCMAC = , 2F15 . 6 / 39X,SHARATI0 =,2F15.6 / 

4 42X ,5HXCG =,2F15.6) 

WRITE ( 6 , 50 ) NROWS, NRO,NCASES,NC,ISYMM,ISY, IPRINT, IPR, JETFLG, JET, 
1 IGTYPE ,IGT ,IHINGE ,IHI ,NWT ,NJT ,NMAX 

50 FORMAT ( 1H0/ 48X,7HNRCWS =,I3,7X,I3 / 47X,8HNCASES =,I3,7X,I3 / 



2 

3 

4 

5 

6 

60 J 



= 0 



48X , 7HISYMM =,I3,7X,I3 / 47X,8HIPRINT =,I3,7X,I3 / 
47X ,8HJETFLG =,I3,7X,I3 / 47X,8HIGTYPE =,I3,7X,I3 / 
47X,8HIHINGE =,I3,7X,I3 /// 

43X , 25HNUMBER OF WING ELEMENTS =,I4 / 

43X , 25HNUM3ER OF JET ELEMENTS =,I4 / 

42X , 26HTOTAL NUMBER OF ELEMENTS =,I4) 



JJ = NWT 



PRINT FUNDAMENTAL CASE HEADER 
WRITE! 6, 70 ) LCASE 
70 FORMAT! lHl , 23X, 1H* . 19! 4H**** )/ 

1 24X,54H* ELEMENT GEOMETRY DATA AND FUNDAMENTAL CASE DATA FOR, 

2 17H FUNDAMENTAL CASE, 13, 3H */24X , 1H* , 19! 4H**** ) ) 

ILINES = 3 

DO 260 K = 1, NROWS 

PRINT SECTIONAL DATA 

WRITE ! 6 , SO ) K ,Y( K ) ,DELTA( K ) »XLE AD ( K ) , XT RAIL! K ) , CHORD! K ) ,TANLE ( K ) 
80 FORMAT ( 1H0 , 11H^^^ SECTION ,13 ,4H ***,2X,3HY = , F10 . 6 ,2X , 7HDELTA =, 

1 F10 . 6 , 2X ,7HXLEAD = , F10 . 6 , 2X ,8HXTRAI L = , F10 . b , 2X , 7HCHORD =,F10.b, 

2 2X , 7HTANLE =,F10.6) 

PRINT CHORDWISE DATA ON WING 
NWK = NW! K ) 

WRITE ( 6 , 90 ) NWK, TST(K, LCASE ),HL!K, LCASE ),THS(K, LCASE ) 

90 FORMAT! 1H0,21HWING ELEMENTS NW =,I3,5X, 7HTWIST =,F10.6,5X, 

1 4HHL = » F10 . 6 ,5X , 9HTHETA S =,F10.6) 

WRITE! 6, 100 ) (XBIJ + L ),L = 1, NWK I 
100 FORMAT! 1H , 14X , 2HXB ,10Fll . 6 / 17X,10F11.6) 

IF! LCASE .GT . 1 ) GO TO 130 
WRITE ( 6 , 110 ) ! XI ( J + L),L = 1,NWK) 

110 FORMAT t 1H ,14X, 2HXI , 10F11 . 6/17X ,10F11 . 6 ) 

WRITE ! 6 , 120 ) ( DEHJ + L ),L = 1 ,NWK ) 

120 FORMAT! 1H , 13X ,3HDEL , 10F11 . 6/17X , 10F11 . 6 ) 

130 IF(ICTfK) .EQ. 0) GO TO 150 
ICK = ICT ( K ) 

WRITE ! 6 » 140 ) ( AC! L , ICK ) , L=1 ,NNK ) 

140 FORMAT! 1H , 10X , 6HCAMBER , 10F11 . 6/17X , 10F11 . 6 ) 

150 WRITE! 6, 160 ) ( EPS! J + L , LCASE ) ,L = 1 , NWK ) 

160 FORMAT! 1H , 13X ,3HEPS , 10F11 . 6/17X , 10F11 . 6 ) 

WRITE ! 6 » 170 ) ( BETA! J + L , LCASE ) ,L = 1 , NWK ) 

170 FORMAT! lH , 12X ,4HBETA , 10F11 . 6/17X , 10F11 . 6 ) 

WRITE ! 6 , 180 ) (ITYPE! J + L ) , L = 1 ,NWK ) 

180 FORMAT ! 1H , 12X,4HTYPE , 10 ( 3X,I2 , 6X )/17X, 10! 3X,I2 ,6X ) ) 

J = J + NWK 
IL = 1 

I F ! NWK .GT. 9) IL = 2 

ILINES = ILINES + 4 + 4*IL 

IF! LCASE .EQ. 1) ILINES = ILINES + 2*IL 

PRINT CHORDWISE DATA ON JET 
NJK = NJ( K ) 

I F ( N JK .GT. 0) GO TO 200 
WRITE! 6, 190 ) 
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190 FORMAT ( 1H ,8X,19HTHIS ROW HAS NO JET) 

I LINES = I LINES + 1 
GO TO 230 

200 WRITE ( 6 2 210 ) NJK , D ( K ) ,D J ( K ) >ACTE ( K ) ,THETA( K , LCASE ) 

210 FORMAT) 1H0, IX, 20HJET ELEMENTS NJ =,I3,5X,3HD = , F10 . 6 ,5X,4HDJ = , 
1 F10.6,5X,6HACTE = , F10 . 6 ,5X , 7HTHETA =,F10.6) 

WRITE) 6, 100 ) (XB( JJ + L ),L=1,NJK ) 

IF) LCASE .GT. 1) GO TO 220 
WRITE ( 6 , 110 ) (XI) JJ + L ),L=1,NJK ) 

WRITE ( 6 , 120 ) (DEL) JJ+L), L=l, NJK) 

220 WRITE ( 6 , 170 ) ( BETA) JJ + L > LCASE ), L = 1 , NJK ) 

WRITE ( 6 , 180 ) ) ITYPE) JJ + L )>L = 1, NJK ) 

JJ = JJ + NJK 
IL = 1 

IF) NJK .EQ. 10) IL = 2 
ILINES = ILINES + 1 + 3 * IL 
IF) LCASE .EQ. 1) ILINES = ILINES + 2*IL 
230 I F ( K .EQ. NROWS) GO TO 260 
= NW 



NEXT + 2*IL 



NWK1 = NW)K+1) 

IL = 1 

IF) NWK1 .GT. 9) IL = 2 
NEXT = 4 + 4*IL 
IF) LCASE .EQ. 1) NEXT = 

NJK1 = NJ) K+l ) 

IL = 1 

IF) NJK1 .EQ. 10) IL = 2 
NEXT = NEXT + 1 
IF) NJK1 .EG. 0) GO TO 240 
NEXT = NEXT + 1 + 3*IL 
IF) LCASE .EQ. 1) NEXT = NEXT + 2*IL 
240 IF ( ( 55-ILINcS ) .GE. NEXT) GO TO 260 
WRITE) 6, 250 ) 

250 FORMAT) 1H1) 

ILINES = 1 
260 CONTINUE 
RETURN 
END 

SUBROUTINE INCOMP) NCASES ,IR ) 

THIS SUBROUTINE READS IN THE COMPOSITE CASE REQUIREMENTS 

WHICH DEFINE THE FUNDAMENTAL CASES AND THEIR DEFLECTION MAGNITUDE 

FOR SUPERPOSITION IN UP TO 24 COMBINATIONS 

COMMON/COMPOS/FACTOR) 10,24) ,NCC 

COMMON/INDAT/LUN 

DIMENSION FUNNY) 10), ND) 10) 

INITIALIZE THE ARRAY OF FUNDAMENTAL CASE DEFLECTIONS 
DO 20 M = 1,24 
DO 10 N = 1,10 
FACTOR) N ,M ) = 0.00 
10 CONTINUE 
20 CONTINUE 

READ THE COMPOSITE CASE DATA, CONSISTING OF FUNDAMENTAL CASE 
DEFLECTIONS, IN DEGREES 
NCC = 0 

30 NCC = NCC + 1 

READ) LUN, 40, END = 130 ) ( ND) N ), FUNNY) N ) ,N=1 , 10 ) 

40 FORMAT) 10(BZ, 12, F6.4 ) ) 

CHECK THE VALIDITY OF THE DATA 
50 IF) ND) 1 ) .GT. 10) GO TO 100 
IF) NCC .GT. 24) GO TO 110 



DO 90 N = 1,10 

IF) ND) N ) .GT. NCASES) GO TO 70 



IF) ND) N ) .LT. 1 ) GO TO 90 
THE DATA IS CK . DEFINE FACTOR. 

NDN = ND) N) 

60 FACTOR) NDN, NCC) = FUNNY) N) 

GO TO 90 
70 WRITE) 6 > 80 ) 

80 FORMAT) lHO , 22X , 76HAN INCORRECT COMPOSITE CASE INPUT VALUE HAS BEEN 
1 FOUND. IT WILL BE IGNORED.) 

90 CONTINUE 
GO TO 30 

THE END OF THE INPUT DATA HAS BEEN REACHED 
100 NCC = NCC - 1 

IF) NCC .GT. 24) NCC = 24 

IR = 1 

RETURN 

TOO MANY COMPOSITE CASES HAVE BEEN REQUESTED. READ ON UNTIL AN END 
CARD IS FOUND. 

110 WRITE) 6, 120 ) 

120 FORMAT) 1H0 ,20X ,47HMORE THAN 24 COMPOSITE CASES HAVE BEEN INPUT. , 
1 34HSUBSEQUENT INPUTS WILL BE IGNORED.) 

GO TO 30 

AN END OF FILE HAS BEEN READ. PRINT A MESSAGE AND QUIT. 

130 WRITE) 6, 140 ) 

140 FORMAT) 1H1/// 31X, 35HAN END OF FILE HAS BEEN READ DURING, 

1 21H COMPOSITE CASE INPUT) 

IR = 2 
RETURN 
END 

SUBROUTINE BLOWIN) JETFLG,IR ) 

THIS SUBROUTINE READS THE SECTIONAL JET BLOWING RATES 
CMU) K ) = J / ) Q * CHORD) K ) ) 

COMMON/MARK/NROWS ,NROWSJ ,NWT ,NJT ,NMAX,NW( 40 ) ,NJ) 40 ) ,IW( 40 ) ,IJ( 40 ) 
COMMON/JCASE/CMU ( 40 ) ,CMUP( 40 ) ,CMUPP( 40 ) 
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DIMENSION DCMIM 40 ) 

COMMON/INDAT/LUN 

I F ( JETFLG .NE. 0) GO TO 30 

READ THE CMU DATA ONLY FOR THOSE SECTIONS WHICH HAVE A JET 
READlLUN, 10, END = 60 ) ( DCMLH K ) ,K=1 ,NROWSJ ) 

10 FORMAT ( 6F10 . 6 ) 

20 IF(DCMU(1) -LT. 800.0) GO TO 30 
IR = 2 
RETURN 

REARRANGE THE DATA INTO THE PROPER SEQUENCE 
30 KP = 0 

DO 50 K = l,NROWS 
40 CMU< K ) = 0.00 

IF( NJ( K ) .EQ. 0) GO TO 50 
KP = KP + 1 
CMU(K) = DCMU(KP) 

50 CONTINUE 
IR = 1 
RETURN 

AN END OF FILE HAS BEEN READ. THIS RUN IS COMPLETELY FINISHED. 
60 WRITE ( 6 > 70 ) 

70 FORMAT ( 1H1///4 IX, 37HNO MORE CMU CASES HAVE BEEN REQUESTED) 

IR = 3 
RETURN 
END 

SUBROUTINE ST AGE 2 

THIS PROGRAM CONTROLS THE FORMATION AND SOLUTION OF 
THE SYSTEM OF LINEAR EQUATIONS 

COMMON/SPIRIT/ NEWMAX,NEWCMU ,NOALFA , LOGIC ,IR 

FORM THE SYSTEM OF LINEAR EQUATIONS 
10 CALL STG2D 

SOLVE THE SYSTEM OF LINEAR EQUATIONS 
20 CALL STG2S 

I F I IR .EQ. 2 ) GO TO 30 



THE SOLUTION HAS NOW BEEN COMPLETED. 
*** HALLE LULIAH *** 

IR = 1 
GO TO 40 



RETURN NORMALLY TO MAIN. 



C*********************************************************************** 
C A FATAL ERROR HAS OCCURED. RETURN ABNORMALLY TO MAIN. 

30 IR = 2 
40 RETURN 

C********* ************************************************************** 

c 

END 

SUBROUTINE STG2D 



THIS PROGRAM CONTROLS THE CALCULATION OF ALL EVD DOWNWASH 
INFLUENCE COEFFICIENTS AND THE FORMATION OF THE LEFT AND RIGHT SIDE 
MATRICES. 

COMMON/MATHEW/NCASES >ISYMM >IPRINT , JETFLG ,IGTYPE ,IHINGE 
COMMON/MARK/NRONS ,NROWSJ ,NWT ,NJT >NMAX,NW< 40 ) ,NJ( 40 ) , IW( 40 ) ,1 J( 40 ) 
COMMON/SPIRIT/ NEWMAX >NEWCMU ,NOALFA , LOGIC , IR 
DIMENSION W( 610 ) 

IF THIS IS A NEW CMU CASE, AUGMENT THE EXISTING DOWNWASH MATRIX ROWS 
ON THE JET 

ISIZE = NEWMAX 
I F ( NEHCMU .EQ. 1 ) GO TO 10 

IF( NEWMAX .GT. NNT ) CALL SHUFL2( W, ISIZE , NEWMAX ) 

GO TO 30 

CALCULATE THE DOWNWASH INFLUENCE COEFFICIENTS AT ALL CONTROL POINTS 
DUE TO ALL TRIANGULAR, LEADING EDGE AND FAR-JET EVD ELEMENTS 
10 ISIZE = NMAX 

IFM LOGIC .EQ. 2) .AND. ( ISYMM .GT. 0 ) ) GO TO 30 
CALL DWNWSHIH, ISIZE) 

AUGMENT THE MATRIX ROWS FOR CONTROL POINTS ON THE JET. 

NOTE THAT THIS MUST BE DONE EVEN THOUGH CMU MAY BE 0.0, 

IN ORDER TO PREPARE FOR FUTURE NONZERO CMU CASES. 

20 IF ( NMAX .GT. NWT ) CALL SHUFLK W, ISIZE ) 

DEVELOP THE RIGHT SIDE COLUMN MATRIX 
30 ISIZE = NEWMAX 

DO 80 N = 1 >NCASES 
LCASE = N 

DEFINE THE LCASE COLUMN, NOT INCLUDING THE INFLUENCE OF ANY HINGES 
40 CALL COLUMK LCASE ) 

COMPUTE THE HINGE DOWNWASH INFLUENCE FACTORS 

IF(( LCASE .EQ. 1) .OR. ( IHINGE .EQ. 0)) GO TO 80 
DO 50 I = 1, NEWMAX 
W( I I = 0.00 
50 CONTINUE 

60 CALL HINGE! W, ISIZE, NEWMAX, LCASE ) 

MODIFY THE LCASE COLUMN TO INCLUDE THE INFLUENCE OF ALL HINGES 
70 CALL COLUM2(W, ISIZE, NEWMAX, LCASE ) 
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80 CONTINUE 

THE MATRIX DEVELOPMENT IS NOW COMPLETE. 

PUT THE MATRIX SYSTEM IN THE PROPER FORM FOR SOLUTION. 

90 ISIZE = NEWMAX + NCASES 
100 CALL PREP(W, ISIZE, NEWMAX) 

RETURN 

END 

SUBROUTINE DWNWSH( W , ISIZE ) 

THIS SUBROUTINE CALCULATES THE DOWNWASH INFLUENCE COEFFICIENT MATRIX. 
THE MATRIX IS STORED ON THE DIRECT ACCESS SCRATCH FILE. 

common/mathew/ncases,isymm, iprint, jetflg»igtype 7 ihinge 

COMMON/MARK/NROWS,NR6wsJ 7 NWT,NJT,NMAX,NW)40 ) ,NJ( 40 )*IW( 40 ) »I J) 40 ) 
COMMON/GEOM1/Y ( 40 ) , CHORD) 40 1, DELTA) 40 ) >XB( 600 ) ,XI ) 600 ) ,DELI 600 ) , 

1 D( 40 ) >KK( 600 ) ,1 T YPE ( 600 ) 

DIMENSION W( ISIZE ) 



COMPUTE ALL THE DOWNWASH COEFFICIENTS 
I WRITE = 0 

I F ( IPRINT .LT. 0) WRITE ( 6 > 10 ) 

10 FORMAT) 1H1,38X,44HWING - DUE - TO - WING - AND - JET DOWNWASH/) 

CYCLE THE DOWNWASH CONTROL POINTS ON THE WING AND JET 
DO 190 I = 1,NMAX 
I WRITE = IWRITE + 1 

FIND) 1’IWRITE ) *** COMMENTED OUT BY JAC ** 

KI = KK( I ) 

CYCLE THE VORTEX POINTS ON THE WING AND JET 
DO 150 J = 1 » NMAX 

COMPUTE THE GENERAL GEOMETRIC PARAMETERS 
KJ = KK( J ) 

20 X = XI ) I ) + DEL) I )*CHORD(KI )/2.00 - XI) J) 

YY = YIKI ) - Y) KJ ) 

IT = ITYPE ( J )/10 

DECIDE WHICH EVD TYPE TO USE. ONLY THE TRIANGULAR PART OF HINGES 
WILL BE CONSIDERED AT THIS TIME. 

GO TO ( 50 , 60 , 110 ,50 ), IT 
SO WRITE) 6, 40 ) J,IT 

40 FORMAT) 1H ,35X,21H** WARNING ** ELEMENT ,14 , 19H HAS AN ITYPE VALUE, 
1 3H OF,I3/39X,42HAN EQUIVALENT TRIANGULAR DOWNWASH WAS USED) 

REGULAR TRIANGULAR EVD (INCLUDING TRIANGULAR PART OF HINGE EVD) 

50 D1 = DEL(J-l) * CHORD ( KJ ) 

INI = IW(KJ) + NWtKJ) - 1 

I F ( J .EQ. IJ(KJ))D1 = DEL) INI ) * CHORD(KJ) 

D2 = DEL) J ) * CHORD) KJ ) 

60 W(J) = EVDl) X,YY ,D1 »D2, DELTA ( KJ ) ) 

SUPERIMPOSE THE DOWNWASH FROM THE LEFT SIDE OF THE WING IF THIS IS A 
SYMETRIC OR ANTI-SYMETRIC CASE 
IFdSYMM .GT. 0) GO TO 150 
YY = Y(KI ) + Y ( K J ) 

70 WDUMMY = EVDl) X »YY ,D1 ,D2 , DELTA) KJ ) ) 

IFdSYMM .LT. 0 ) WDUMMY = -WDUMMY 
GO TO 140 

LEADING EDGE EVD 

80 D2 = DEL) J ) * CHORD ( KJ ) 

90 W(J) = EVD2) X ,YY ,D2 ,DELTA( KJ ) ) 

SUPERIMPOSE DOWNWASH 

IFdSYMM .GT. 0) GO TO 150 
YY = Y ( KI ) + Y( KJ ) 

100 WDUMMY = EVD2) X >YY >D2 ,DELTA( KJ ) ) 

IFdSYMM .LT. 0) WDUMMY = -WDUMMY 
GO TO 140 

FAR - JET EVD 

110 D1 = DEL(J-l) * CHORD ( KJ ) 

120 W(J) = EVD3) X,YY ,D1 ,D( KJ ), DELTA) KJ ) ) 

SUPERIMPOSE DOWNWASH 

IFdSYMM .GT. 0) GO TO 150 
YY = Y(KI ) + Y ( K J ) 

130 WDUMMY = EVD3)X,YY,D1,D(KJ),DELTA)KJ )) 

IFdSYMM .LT. 0) WOUMMY = -WDUMMY 
140 W(J) = W(J) + WDUMMY 
150 CONTINUE 

STORE THE DOWNWASH AT CONTROL POINT I ON THE DIRECT ACCESS UNIT 

160 WRITE) 1'IWRITE ) W 

IF) IPRINT .GE. 0) GO TO 190 
IF(I .EQ. NWT+1) WRITE ( 6 , 170 ) 

170 FORMAT) 1H1 2 38X,43HJET - DUE - TO 
WRITE) 6, 180 ) I,W 

180 FORMAT) 1H0 ,55X,10HMATRIX ROW, 14, 60) /1X,10E13 .5 )) 

190 CONTINUE 
RETURN 

THE DIRECT ACCESS UNIT NOW CONTAINS THE FOLLOWING - 

WING-DUE -TO-WING-AND-JET DOWNWASH COEFFICIENTS ) N)TT RECORDS) 

JET -DUE -TO-WING-AND-JET DOWNWASH COEFFICIENTS ( NJT RECORDS) 

END 

FUNCTION EVD1)X,Y,D1,D2, DELTA) 

THIS FUNCTION CALCULATES THE DOWNWASH AT ANY POINT X,Y 



- WING - AND - JET DOWNWASH/) 
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(1.0/YMD - 1.0/YPD) 
.GT. 100.0) GO TO 90 



DUE TO A REGULAR TRIANGULAR EVD ELEMENT WITH UNIT PEAK VORTICITY, 
LOCATED AT THE ORIGIN 0,0 

R( A>B ) = SQRT ( A*A + B*B ) 

CALCULATE THE BASIC GEOMETRICAL PARAMETERS 
IF ( Y .LT. 0.0 ) Y = -Y 
YMD = Y - DELTA 
YPD = Y + DELTA 
PARTI = (D1 + D2) * 

IF ( X/( 0 . 50^ ( D1 + D2 > ) 

10 XPD = X + D1 

XMD = X - D2 

20 R0P = R(X,YMD) 

RIP = R ( XPD , YMD ) 

R2P = R( XMD, YMD) 

30 ROPP = R( X > YPD ) 

R1PP = R( XPD ,YPD ) 

R2PP = R( XMD ,YPD ) 

CALCULATE THE DOWNWASH 

90 PART2 = (XPD/D1) * ( ( R1P-R0P )/YMD - ( R1PP-R0PP )/YPD ) 

PARTS = ( XMD/D2 ) * ( ( R2P-R0P l/YMD - ( R2PP-R0PP )/YPD ) 

YRATIO = ( YPD + ROPP ) / ( YMD+ROP ) 



50 PART9 
PART5 
60 PART 6 
PART7 
70 PART8 
PART9 



YRATIO) 

YRATIO) 



( XPD/D1 ) * ALOG( ( ( YMD + R1P )/( YPD+R1PP ) ) * 

( XMD/D2 ) * ALOG( < ( YMD + R2P )/( YPD+R2PP ) ) * 

YMD * ALOG( ( XPD + R1P )/( X+ROP ) ) 

YPD * ALOG( (XPD +R1PP)/(X+ ROPP) ) 

YMD * ALOG( ( XMD+R2P )/( X+ROP ) ) 

YPD * ALOG( ( XMD + R2PP )/( X + ROPP ) ) 

80 EVD1 = -(PARTI + ( PART 2 + PART3 ) - 2.0*(PART9 + PART5 ) 

1 -( ( PART6 - PART7 )/Dl + ( PART8 - PART9)/D2)) / 25.13279 

RETURN 

90 EVD1 = -PARTI / 12.56673 
100 RETURN 
END 

FUNCTION EVD2(X,Y, DEL, DELTA) 

THIS FUNCTION CALCULATES THE DOWNWASH AT ANY POINT X,Y 

DUE TO A LEADING EDGE EVD ELEMENT WITH UNIT AVERAGE VORTICITY, 

LOCATED AT THE ORIGIN 0,0 

DIMENSION SI ( 9 ) , FACTOR! 9 ) 



R( A »B ) 
G( A) 



SQRT(A*A + B*B ) 
1 . OO/SQRT ( A ) - A 
S( A ) = ABS( A J / A 



DB 
DB 

100.0) GO TO 280 
1.00 



DATA SI/-0. 9681602, -0. 8360311, -0.6133714, -0. 3242534, 0.0, 

1 0.3292539, 0. 6133719, 0.8360311, 0.9o81602/ 

DATA FACTOR/O . 0312/99 ,0 . 180b9o2 ,0.2606107,0.3123971,0.3302399, 
1 0 . 3123971 ,C. 2b0t>107,0. 18 Oo 932,0. 0812799/ 

CALCULATE THE BASIC GEOMETRICAL PARAMETERS 
10 XB = X / DEL 
YB = Y / DEL 
DB = DELTA / DEL 
YPD = YB + 

YMD = YB - 
20 I F ( XB .GT. 

XM1 = XB - 
30 ROP = R( XB ,YMD ) 

90 ROPP = R(XB,YPD) 

CALCULATE RK(XB) 

I F ( ABS( XB ) .LT. 1.0E-09) GO TO 100 
I F ( ABS( XM1 ) .LT. 1.0E-06) GO TO 80 
50 PART = ALOG( ABS( XM1/XB ) ) 

PARTI = XB * PART + 1.00 
I F ( XB .GT. 0.00) GO TO 70 
60 SOX = SCRT(-XB) 

RK = -2.00 / SQX * ATAN( 1.00/SQX) + PARTI 
GO TO 90 

70 SOX = SQRT ( XB ) 

RK = -ALOG( ABS( ( 1.00-SQX) /( 1 . OO+SQX ) ) ) / SQX + PARTI 
GO TO 90 

80 RK = 2.386299 

CALCULATE P(XB) 

90 PART2 = ROP/YMD - ROPP/YPD 
P = PART 2 * RK 
GO TO 110 
100 P = 0.00 

CALCULATE F(XB) BY GAUSSIAN INTEGRATION. 

110 I F ( ( XB .GT. 0.0) .AND. ( XB . LT . 1.00)) GO TO 150 
XB IS NOT WITHIN THE X DIMENSIONS OF THE ELEMENT. 

F = 0.00 
DO 190 N = 1,9 

120 SB = ( SI ( N )+l . 00 ) / 2.00 
XMS = XB - SB 
GS = G( SB ) 

130 PART3 = ( GS*( R( XMS, YMD )-ROP ) )/YMD - ( GS*( R( XMS, YPD )-ROPP ) )/YPD 
F = F + FACTOR! N ) * PART3 / XMS 
190 CONTINUE 

F = 0.50 * F 
GO TO 270 



XB IS WITHIN THE 
150 FO = 0.00 
GPX = 0.00 



X DIMENSIONS OF THE ELEMENT. CALCULATE FO. 
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GPPX =0.00 

IFIXB .LT. 1.0E-04) GO TO 170 
GX — G ( XB I 

GPX = GX * (ABS(YMD) - ROP) 

GPPX = GX * (ABS(YPD) - ROPP) 

I F ( XM1 .GT. -1.0E-06) GO TO 170 
160 F0 = -( GPX/YMD - GPPX/YPD ) * PART 
CALCULATE FI BY GAUSSIAN INTEGRATION. 

170 FI = 0.00 

DO 250 N = 1,9 

180 SB = ( SI ( N ) + x . 00 ) / 2.00 
xr*s — XB — SB 

190 I F ( ABS ( XMS ) .LT. 1.0E-04) GO TO 220 
GS - G( SB ) 

200 PART4 = ( GS*( R( XMS ,YMD )-R0P ) - GPX) / XMS 
210 PART5 = ( GS*( R(XMS,YPD )-R0PP ) * GPPX) / XMS 
PART 6 = PART4/YMD - PART5/YPD 
GO TO 240 

220 PART4 = S(YMD) - S(YPD) - PART 2 

PART5 = 1.00 + 0.50 / ( SQRT( XB ) )**3 
230 PART6 = PART4 * PART5 
240 FI = FI + FACTOR(N) * PART6 
250 CONTINUE 
260 F = F0 + 0.50 * FI 

CALCULATE THE DOWNWASH INFLUENCE COEFFICIENT. 

270 EVD2 = -(1.50 * (1.00/YMD - 1.00/YPD) + P + F) / 18.84956 
RETURN 

280 EVD2 = -(1.00/YMD - 1.00/YPD) / 6.283185 
RETURN 
END 

FUNCTION EVD3(X,Y, DEL, D, DELTA) 

THIS FUNCTION CALCULATES THE DOWNWASH AT ANY POINT X,Y DUE TO A 
FAR-JET EVD ELEMENT WITH UNIT PEAK VORTICITY, LOCATED AT THE ORIGIN 

R( A ,B ) = SQRT ( A*A + B*B ) 

CALCULATE THE BASIC GEOMETRICAL PARAMETERS 
I F( Y .LT. 0.0) Y = -Y 
YMD = Y - DELTA 

YPD = Y + DELTA 

10 XPD = X + D 

20 PARTI = (DEL/2.00 + D ) * (1.00/YMD - 1.00/YPD) 

CHECK ON INFINITY 

IF( (XPD/YMD )**2 .GT. 1.0E06) GO TO 160 
XPD1 = X + DEL 
XD = X/DEL 
ROP = R(X,YMD) 

ROPP = R( X > YPD ) 

30 RIP = R(XPD1,YMD) 

R1PP = R( XPDl ,YPD ) 

RDP = R( XPD, YMD) 

RDPP = R( XPD , YPD ) 

CALCULATE FO 

40 PART 2 = ROP/YMD - ROPP/YPD 

PART3 = 0.50 * (XD + 1.00) * ( ( R1P-R0P )/YMD - ( R1PP-R0PP )/YPD ) 

50 PART4 = ALOG( ABS( ( ( YMD+R1P )/( YPD+R1PP I ) * ( ( YPD+ROPP )/( YMD+ROP ) ) ) ) 
PART5 = YMD/DEL * ALOG( ( XPD 1 + RIP )/( X+ROP ) ) 

60 PART6 = YPD/DEL * ALOGI ( XPD1+R1PP )/( X+ROPP ) ) 

70 FO = PARTI - 0.50*PART2 + PART3 - ( XD + 1 . 00 )*PART4 
1 - 0.50*(PART5-PART6) 

CALCULATE FI 

I F ( ABS( XPD/D ) .LT. 1.0E-02) GO TO 130 
X IS NOT NEAR -D 
Q = D/XPD 

80 PARTI = -D * Q * (1.00/YMD - 1.00/YPD) 

PART 2 = Q * PART 2 

90 PART3 = 0 * Q * ALOG(ABS( (YMD+ROP )/( YPD+ROPP))) 

100 PART4 = YMD/RDP*ALOG( ABS( ( -XPD+RDP*( ( ROP+RDP )/D ) )/( RDP-XPD ) ) ) 

110 PART5 = YPD/RDPP*ALOG* ABS( ( -XPD+RDPP*( ( ROPP+RDPP )/D ) )/( RDPP-XPD ) ) ) 
120 FI = PARTI + PART2 - PART3 + Q * Q * ( PART4 - PART5 ) 

GO TO 150 
X IS NEAR -D 
130 X = -D 

ROP = R( X > YMD ) 

ROPP = R( X,YPD ) 

PART 2 = ROP/YMD - ROPP/YPD 

PART3 = (X/YMDJ**2 * ALOG( ABS( ( YMD + ROP )/X ) ) 

PART4 = ( X/YPD )**2 * ALOG( ABS( ( YPD + ROPP )/X ) ) 

140 FI = -0 . 50*PART2 - 0.50*(PART3 - PART4 ) 

CALCULATE THE DOWNWASH INFLUENCE COEFFICIENT 

150 EVD3 = -(FO + FI) / 12.56637 
RETURN 

160 EVD3 = -PARTI / 6.283185 
RETURN 
END 

FUNCTION EVD4(X,Y,D1,D2, DELTA) 

THIS FUNCTION CALCULATES THE DOWNWASH AT ANY POINT X,Y 
DUE TO A HINGE EVD ELEMENT WITH ONE RADIAN TURNING ANGLE 
LOCATED AT THE ORIGIN 0,0 

DIMENSION SI( 9),FACTOR( 9) 

R( A ,B ) = SQRT ( A*A + B*B ) 

CHANGE ( A ,B ,C ) = 0.50 * (C * (B-A) + ( A+B ) ) 

S ( A ) = ABS(A) / A 

SO( T ) = 0.50 * ( -D1L/D1*( l.OO-S(T) ) + D2L/D2*( 1 . 00+S( T ) ) ) 
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GlAI = ALOGI ABS( A ) ) - SOI A) * A 

DATA SI/-0. 9681602, -0.836031 1,-0. 6133714,-0. 3242534, 0.0, 

1 0.3242534, 0 . 6133714 , 0.8360311, 0.9681602/ 

DATA FACT0R/0 . 0812749- ,0 . 1806982 ,0.2606107,0.3123471,0.3302394, 
1 0.3123971,0.2606107,0. 1806482,0 . 0812744/ 

CALCULATE THE BASIC GEOMETRICAL PARAMETERS. 

DB = 0.50 * (D1 + D2J 
10 XB = X / DB 
XMD = X - 02 
XPD = X + Dl 
20 YMD = Y - DELTA 
YPD = Y + DELTA 
30 ROP = R( X ,YMD ) 

ROPP = R!X,YPD) 

AX = ABS(X) 

AXB = ABS(XB) 

D1L = ALOG( Dl) 

D2L = AL03( D2 ) 

XD1 = X/Dl 
XD2 = X/D2 
40 PARTS = 1.00/YMD 
PART 6 = -( D1 + D2 ) 



1 . 00/YPD 
0.50 * (D1*D1L 



+ D2*D2L) 



* D2L) * ALOG( ABS( XMD/X ) ) 
140 



CALCULATE RK(X) 

I F ( AXB .LT. 7.5) GO TO 70 
N = 0 
RK = 0.00 
D1X = Dl/X 
D2X - D2/X 
DO 60 Ml = 1,100,2 
RKN = 0.000 
DO 50 N2 = 1,2 
N = N -*• 1 
RN = N 

RUN = N * (N+l) 

RKN = RKN + ( -1.0)**(N+1) * ( D1L/RNN - 1.0/(RN*RN)) * D1X**N 
1 +( D2L/RNN - 1 . 0/( RN*RN ) ) * D2X**N 

50 CONTINUE 

RK = RK + RKN 

IF( ABS( RKN/RK ) . LT . 1.0E-07) GO TO 190 
60 CONTINUE 

70 IFIAXB .LT. 1.0E-04) GO TO 200 
SX = S(X) 

RK1 =0.00 
RK2 = 0.00 
RK3 =0.00 
RK4 =0.00 

RK1P = ABS( XD1 +1 . 00 ) 

80 I F( RK1P .LT. 1.0E-06) GO TO 90 

RK1 = ( ALOGI ABSIXDl ) ) + (XD1 + 1.00) * D1L ) * ALOGt ABSl XPD/X ) ) 

90 RK2P = ABS! XD2-1 . 00 ) 

I F ( RK2P .LT. 1.0E-06) GO TO 100 
RK2 = -1 ALOGt ABSl XD2 ) ) - (XD2-1.00) 

100 IF( ABS( Dl/AX-1 . 00 ) . LT . 1.0E-04) GO TO 
CALCULATE RK3 BY GAUSSIAN INTEGRATION. 

AL = 1.00 
BL = Dl/AX 
DO 130 N = 1,9 
110 T = CHANGE ( AL ,BL ,SI ( N ) ) 

120 RK3 = RK3 + FACTORIN) * ( ALOGI T) / (SX+T)) 

130 CONTINUE 

RK3 = 0.50 * (BL-AL) * RK3 
CALCULATE RK4 BY GAUSSIAN INTEGRATION . 

140 I F ( ABSl D2/AX-1 . 00 ) . LT . 1.0E-04) GO TO 180 
AL = 1.00 
BL = D2/AX 
DO 170 N = 1,9 
150 T = CHANGE l AL ,BL ,SI ( N ) ) 

IbO RK4 = RK4 + FACTORIN ) * ( ALOGI T) / ( SX-T ) ) 

170 CONTINUE 

RK4 = 0.50 * (BL-AL) * RK4 

180 RK = -2.467401 * SX - ( D1L-D2L ) + ( RK1 + RK2 ) + ( RK3 + RK4 ) 

190 P = f ROP/YMD - ROPP/YPD ) * RK 
GO TO 210 
200 P = 0.00 

CALCULATE FIX) BY GAUSSIAN INTEGRATION. 

210 IFUX . GT . -Dl) .AND. (X . LT . D2 ) ) GO TO 290 
C X IS NOT WITHIN THE DIMENSIONS OF THE ELEMENT. 

C LEFT SIDE INTEGRAL. 

FL = 0.00 
AL = -Dl 
BL = 0.00 
DO 240 N = 1,9 
220 SY = CHANGE! AL,BL, SI(N) ) 

XMS = X - SY 
GS = G( SY ) 

230 PARTI = GS * ( R( XMS , YMD )-R0P ) / YMD 
FL = FL + FACTOR! N ) * PARTI / XMS 
240 CONTINUE 

FL = 0.50 * (BL-AL) * FL 
C RIGHT SIDE INTEGRAL 
FR = 0.00 
AL = 0.00 
BL = D2 

DO 270 N = 1,9 
250 SY = CHANGE! Al,BL, SI(N) ) 

XMS = X - SY 
GS = G( SY ) 

260 PARTI = GS * ( R( XMS, YMD )-R0P ) / YMD - GS * ( R( XMS, YPD )-R0PP ) / YPD 



GS * ( R( XMS , YPD )-R0PP ) / YPD 
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FR = FR + FACTOR! N ) * PARTI / XMS 
270 CONTINUE 

FR = 0.50 * (BL-AL) * FR 
280 F = FL + FR 
GO TO 460 



X IS WITHIN THE DIMENSIONS OF THE ELEMENT 
CALCULATE F0 
290 FO = 0.00 
GPX =0.00 
GPPX =0.00 
I F ( AXB .LT. 

SOX = SO! X ) 

GX — G ( X ) 

GPX~ = GX * ( ABS(YMD)-ROP) 

GPPX = GX * ( ABS! YPD)-R0PP) 

IF! ( ( 1.00-XD2 ) .LT. 1.0E-06) .OR. ((XD1 + 1.00) . LT . 1.0E-06)) 
1 GO TO 310 

300 FO = -( GPX/YMD - GPPX/YPD ) * ALOG( ABS( XMD/XPD ) ) 



1.0E-04) GO TO 310 
1.00/X 



CALCULATE FI 
LEFT SIDE INTEGRAL 
310 FL = 0.00 
AL = -D1 
BL = 0.00 
DO 370 N = 1,9 

320 SY = CHANGE! AL,BL,SI(N)) 

XMS = X - SY 

I F ( ABS ( XMS/DB ) . LT . 1.0E-04) GO TO 350 
GS — g ( SY ) 

330 PART 2 = ( GS * ( R( XMS ,YMD )-R0P ) - GPX) / XMS 
340 PART3 = (GS * ( R( XMS ,YPD l-ROPP ) - GPPX) / XMS 
PART4 = PART2/YMD - PART3/YPD 
GO TO 360 

350 PART 2 = ROP/YMD - ROPP/YPD 

PART 4 = (S(YMD) - S(YPD) - PART 2 ) * SOX 
360 FL = FL + FACTOR! N ) * PART 4 
370 CONTINUE 

FL = 0.50 * (BL-AL) * FL 

RIGHT SIDE INTEGRAL 
380 FR = 0.00 
AL = 0.00 
BL = D2 

DO 440 N = 1,9 

390 SY = CHANGE! AL,BL,SI(N) ) 

XMS = X - SY 

IF! ABS! XMS/DB) . LT . 1.0E-04) GO TO 420 
GS = g ( SY ) 

400 PART2 = (GS * ( R( XMS ,YMD )-R0P ) - GPX) / XMS 
410 PART3 = (GS * ! R( XMS > YPD )-R0PP ) - GPPX) / XMS 
PART4 = PART 2/YMD - PART3/YPD 
GO TO 430 

420 PART2 = ROP/YMD - ROPP/YPD 

PART 4 = (S(YMD) - S(YFD) - PART 2 ) * SOX 
430 FR = FR + FACTOR! N) * PART 4 
440 CONTINUE 

FR = 0.50 * (BL-AL) * FR 
450 F = FL + FR + FO 

CALCULATE THE DOWNWASH INFLUENCE COEFFICIENT 
460 EVD4 = ( PART5 * PARTb + P + F) / 19.739202 
RETURN 
END 

SUBROUTINE SHUFLl! W , ISIZE ) 

THIS SUBROUTINE READS THE PORTION OF THE DOWNWASH MATRIX WHICH 
CONTAINS THE DOWNWASH DUE TO THE JET, AUGMENTS IT ACCORDING TO 
THE CURRENT CMU VALUES, AND WRITES IT BACK ON UNIT 1 
BEHIND THE DOWNWASH MATRIX 

COMMON/MATHEW/NCASES ,ISYMM,IPRINT > JETFLG > IGTYPE ,IHINGE 
COMMON/MARK/NROKS ,NROWSJ ,NWT ,NJT ,NMAX ,NWl 40 ) ,NJ( 40 ) ,IW( 40 ) , I J( 40 ) 
COMMON/GEOMl/Y! 40 ) , CHORD! 40 I , DELTA! 40 ) ,XB( 600 ) ,XI ( 600 ) ,DEL( 600 ) , 

1 D ( 40 ) ,KK( 600 ),ITYPE( 600 ) 

COMMON/ JCASE/CMU! 40 ) ,CMUP( 40 ) ,CMUPP! 40 ) 

DIMENSION A! 600 ),AIM1( 600 ),W( ISIZE ) 

NWT1 = NWT + 1 
FIND! l'NWTl) 

IF! IPRINT .LT. 0) WRITE! 6, 10 ) 

10 FORMAT! 1H1 ,42X,36HAUGMENTED PORTION OF SOLUTION MATRIX/) 

PREPARE THE SOLUTION MATRIX FOR ROWS ON THE JET 

I IS THE COUNTER FOR IDENTIFYING ELEMENTS ON THE JET 

IREAD IS THE COUNTER FOR DOWNWASH ROWS ON THE JET STORED ON UNIT I 

IWRITE IS THE COUNTER FOR AUGMENTED ROWS TO BE WRITTEN ON UNIT 1 

20 IREAD = NWT 
IWRITE = NMAX 
Cl = 0.125000 
C3 = 0.375000 
DO 150 I = NWT 1, NMAX 
30 IM1 = I - 1 
IP1 =1+1 
IREAD = IREAD + 1 
IWRITE = IWRITE + 1 
K = KK( I ) 

READ THE ITH ROW OF THE DOWNWASH MATRIX ( IREADTH RECORD) 
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40 READt 1 1 IREAD ) W 
C FIND THE PLACE TO WRITE THE 
C FIND! 1 ' I WRITE ) 



ITH AUGMENTED ROW (IWRITETH RECORD J 

***COMMENTED OUT BY JAC *** 



SAVE THE EXISTING ROW OF SIMPLE DOWNWASH COEFFICIENTS 
DO 50 J = 1,NMAX 
A ( J ) = W( J J 
50 CONTINUE 

SUBTRACT THE PREVIOUS ROW FROM THE PRESENT ROW IF THE DOWNWASH POINT 
IS NOT ON A LEADING JET ELEMENT 

PR0D1 = CMUP(K) * DELtI) * CHORDtK) 

PR0D2 = CMUPtK) * DEL(IMl) * CHORDtK ) 

60 I Ft I .EQ. IJtK ) ) GO TO 90 
DO 70 J = 1 ,NMAX 
W( J ) = W( J) - AIMlt J J 
70 CONTINUE 

MODIFY THE TWO OR THREE SPECIAL ELEMENTS FURTHER 
IFt I .EQ. (IJtK )+NJ( K )-l ) ) GO TO 100 
DOWNWASH CONTROL POINT IS ON A REGULAR JET ELEMENT 
80 W(IMl) = W(IMl) + Cl * PR0D2 

W(I) = W(I) + C3 * ( PR0D1 + PR0D2 ) 

W(IPl) = WtIPl) + Cl * PR0D1 
GO TO 110 

DOWNWASH CONTROL POINT IS ON A LEADING JET ELEMENT 
90 W( I ) = W( I ) + C3 * PR0D1 

W(IPl) = WtIPl) + Cl * PR0D1 
GO TO 110 

DOWNWASH CONTROL POINT IS ON A TRAILING JET ELEMENT 
100 W(IMl) = W(IMl) + Cl * PR0D2 

W(I) = W(I) + C3 * PR0D2 + CMUP ( K ) * D(K) 

STORE THE AUGMENTED ITH ROW ON UNIT 1 (IWRITETH RECORD ) 

110 WRITE t 1 ' INRITE J W 

FIND THE PLACE TO READ THE NEXT DOWNWASH ROW ( IREAD+1ST RECORD) 

FINDt 1 * IREAD+1 ) 

PRINT THE AUGMENTED PORTION OF THE MATRIX 
I F ( IPRINT .LT. 0) WRITE ( 6 * 120 ) I ? W 
120 FORMATl 1H0 ,55X , 10HMATRIX ROW , 14 ,60( /IX , 10E 13 . 5 ) ) 

SAVE THE ITH ROW FOR USE AS THE 1-1 ROW ON THE NEXT PASS 
ISO DO 140 J = 1 , NM AX 
AIMlt J) = A(J) 

140 CONTINUE 
150 CONTINUE 
RETURN 

DIRECT ACCESS UNIT 1 NOW CONTAINS THE FOLLOWING - 

WING-DUE-TO-WING-AND-JET DOWNWASH COEFFICIENTS ( NWT RECORDS) 
JET-DUE-TO-WING-AND-JET DOWNWASH COEFFICIENTS t NJT RECORDS) 

JET-DUE -TO-WING-AND-JET AUGMENTED DOWNWASH COEFFICIENTS (NJT RECS) 
END 

SUBROUTINE SHUFL2( W,ISIZE ,NEWMAX ) 

THIS SUBROUTINE READS EACH MATRIX ROW CORRESPONDING TO A DOWNWASH 
CONTROL POINT ON THE JET, MODIFIES IT ACCORDING TO THE NEW VALUES 
OF CMU, AND RESTORES IT IN ITS ORIGINAL PLACE 

COMMON/MATHEW/NCASES,ISYMM> IPRINT, JETFLG , IGTYPE , IHINGE 
COMMON/MARK/NRCWS >NROWSJ ,NWT ,NJT >NMAX ,NH( 40 ) ,NJ( 40 ) ,IW( 40 ) ,1 J( 40 ) 
C0MM0N/GE0M1/Y ( 40 ) ,CHORD( 40 ) ,DELTA( 40 ) ,XB( 600 ) ,XI ( 600 ) ,DEL( 600 ) , 

1 D( 40 ) ,KK( bOO ) ,ITYPE( 600 ) 

COMMON/JCASE/CMUt 40 ) ,CMUP( 40 ) ,CMUPP( 40 ) 

DIMENSION W(ISIZE) 

I F ( IPRINT .LT. 0) WRITE ( 6 , 10 ) 

10 FORMAT ( 1H1 ,42X > 3bH AUGMENTED PORTION OF SOLUTION MATRIX) 

CYCLE THE AUGMENTED MATRIX ROWS 
IREAD = NMAX 
NWT 1 = NWT + 1 
DO 100 I = NWT1 ,NEWMAX 
IREAD = IREAD + 1 
FINDt 1 1 IREAD ) 

20 I Ml =1-1 
IP1 =1+1 
K = KKt I ) 

SO CMUDIF = (CMUP(K) - CMUPP(K)) * CHORDtK) 

READ THE ITH AUGMENTED MATRIX ROW 
40 READt 1 1 IREAD ) W 
FINDt 1‘IREAD) 

MODIFY THE TWO OR THREE SPECIAL ELEMENTS ACCORDING TO THE NEW CMU 
I F ( I .EQ. I J( K ) ) GO TO 60 
I F t I .EQ. (IJ(KHNJ(K)-l)) GO TO 70 
DOWNWASH CONTROL POINT IS ON A REGULAR JET ELEMENT 
50 W(IMl) = W(IM1) + 0.1250 * DEL ( IM1 ) * CMUDIF 

W(I) = Wtl) + 0.S750 * ( DELt IM1 )+DEL( I ) ) * CMUDIF 
WtIPl) = W(IP1) + 0.1250 * DELtI) * CMUDIF 
GO TO 80 

DOWNWASH CONTROL POINT IS ON A LEADING JET ELEMENT 
60 W(I) = W(I) + 0.3750 * DELtI) * CMUDIF 

WtIPl) = W(IP1) + 0.1250 * DELt I ) * CMUDIF 
GO TO 80 

DOWNWASH CONTROL POINT IS ON A TRAILING JET ELEMENT 
70 W(IMl) = W(IMl) + 0.1250 * DEL(IMl) * CMUDIF 
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W(I) = W(I) + (0.3750*DEL(IM1) + D( K )/CHORD( K ) ) * CMUDIF 

WRITE THE REVISED ITH **0W ON UNIT 1 
80 WRITE ( 1 ' IREAD ) W 

IF( IPRINT .LT. 0) WRITE ( 6 , 90 ) I,W 
90 FORMAT ( 1H0 ,55X , 10HMATRIX ROW,I9,60( /1X,10E13 .5 ) ) 

100 CONTINUE 
RETURN 
END 

SUBROUTINE C0LUM1 ( LCASE ) 

THIS SUBROUTINE SETS UP THE RIGHT SIDE COLUMN MATRIX WITHOUT 
CONSIDERATION OF ANY HINGE DOWNWASH INFLUENCE 

COMMON/MARK/NROWS ,NROWSJ »NWT ,NJT ,NMAX ,NW( 90 ) >NJ( 90 ) ,IW( 90 ) > I J( 90 ) 
C0MN0N/GE0M1/Y ( 90 ) ,CH0RD( 90 ), DELTA! 90 ) ,XB( 600 ) ,XI( 600 ) ,DEL( 600 ) , 

1 D ( 90 ) ,KK( 600 ) >1 T YPE ( 600 ) 

COMMON/FCASE3/EPSI 600 , 10 ) ,BETA! 600,10 ) ,THETA( 90,10) ,THS( 90,10) 
COMMON/SOLVl/B( 600 , 10 ) 

DEFINE THE ELEMENTS ON THE WING 
DO 10 I = 1 , NWT 

B(I, LCASE) = EPS(I, LCASE) / 57.295779 
10 CONTINUE 

DEFINE THE ELEMENTS ON THE JET 
I = NWT 

DO 90 K = 1 ,NROWS 
NJK = N J ( K ) 

I F ( NJK ,EQ. 0) GO TO 90 
FIRST JET ELEMENT 
1=1 + 1 
KKI = KK ! I ) 

20 B! I , LCASE ) = THETA( KKI, LCASE ) / 57.295779 
REMAINING JET ELEMENTS 
DO 30 L = 2, NJK 
1 = 1 + 1 
B( I, LCASE) = 0.00 
30 CONTINUE 
90 CONTINUE 
RETURN 
END 

SUBROUTINE COLUM2! H ,ISIZE ,NEWMAX , LCASE ) 

THIS SUBROUTINE ADDS THE APPROPRIATE HINGE DOWNWASH INFLUENCE 
TO THE RIGHT SIDE COLUMN MATRIX 

COMMON/MARK/NROWS, NROWSJ, NWT, NJT,NMAX,NW< 90 ),NJ( 90 ),IW(90 UIJ(90 ) 
COMMON/GEOM1/Y ( 90 ) ,CHORD( 90 ), DELTA! 90 ) ,XB( 600 ) ,XI( 600 ) , DEL! 600 ) , 

1 D ( 90 ) ,KK( 6G0 ),ITYPE( 600 i 

COMMON/FCASE3/EPS( 600,10 ) ,BETA( 600,10 ) ,THETA( 90,10) ,THS( 90,10) 
COMMON/ JCASE/CMU( 90 ) ,CMUP( 90 ) ,CflUPP( 90 ) 

CCMMON/SOLV1/B1 600,10 ) 

DIMENSION H(ISIZE) 

DEFINE THE ELEMENTS ON THE WING 
DO 10 I = 1 ,NEWMAX 
B( I, LCASE) = B( I, LCASE) - HC I ) 

10 CONTINUE 

DEFINE THE ELEMENTS ON THE JET 
I F C NEWMAX .EQ. NWT) RETURN 
I = NWT 

DO 90 K = 1 ,NROWS 
20 NJK = NJ(K) 

I F ( NJK .EQ. 0) GO TO 90 
COMPUTE THE CMU INFLUENCE FACTORS HI AND H2 
1 = 1 + 1 
HI = 0.00 
H2 = 0.00 

BTA = BETA! I , LCASE ) 

IFIABS(BTA) .LT, 0.0001) GO TO 50 
BTA = BTA / 57 . 295779 
30 D2 = DELI I ) * CHORD! K ) 

ALOGID2) 

-CMUP(K) * D2 * 



(1.6931972 - 0.750 * 
(0.3068528 - 0.250 * 



BTA / 3.1915927 
‘ DL) 



HI 



DL ) 



+ H2 



DL 

PROD 

90 HI = PROD * 

H2 = PROD * 

FIRST POINT ON THE JET 
50 B( I, LCASE) = B( I, LCASE) + 

SECOND POINT ON THE JET 
1 = 1 + 1 

60 B(I, LCASE) = B(I, LCASE) + H(I-l) 

REMAINING POINTS ON THE JET 
I F ( NJK .LT. 3) GO TO 90 
DO 80 L = 3, NJK 
1 = 1 + 1 

70 B(I, LCASE) = B(I, LCASE) + H(I-l) 

80 CONTINUE 
90 CONTINUE 
RETURN 
END 

SUBROUTINE HINGE! H,ISIZE , NEWMAX, LCASE ) 

THIS SUBROUTINE CALCULATES THE DOWNWASH INFLUENCE COEFFICIENTS 
AT EACH DOWNWASH CONTROL POINT DUE TO ALL DEFLECTED HINGE ELEMENTS. 
FOR EACH CONTROL POINT THE INFLUENCE COEFFICIENTS ARE MULTIPLIED BY 
THEIR RESPECTIVE DEFLECTION ANGLE AND SUMMED UP TO OBTAIN THE 
COMPLETE HINGE-INDUCED DOWNWASH. 

COMMON/MATHEW/NCASES,ISYMM, IPRINT, JETFLG,IGTYPE,IHINGE 
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COMMON/M A RK/NROWS ,NROWSJ ,NMT ,NJT >NMAX ,NWf 40 ) 2 NJ( 40 ) 2 IW( 40 ) ,1 J ( 40 ) 
COMMON/GEOM1/Y(40 ), CHORD (40 KDELTAI40 ),XBf 600 ),XI( 600 ), DEL (600 ), 

1 D(40 )>KKl 600 ),ItYPE( 600 ) 

COMM0N/FCASE3/EPS* 600 , 10 ) ,BETA ( 600 , 10 ) ,THETA( 40 , 10 ) ,THS( 40 , 10 ) 
DIMENSION H(ISIZE) 

I F ( LCASE .GT. 2) GO TO 20 
IFdPRINT .LT. 0) WRITE l 6 > 10 ) 

10 FORMAT ( 1H1 ) 

I LINES = 1 

CYCLE THE DOWNWASH CONTROL POINTS ON THE WING AND JET 
20 DO 110 I = I >NEWMAX 
KI = KK( I ) 

CYCLE THE VORTEX POINTS ON THE WING AND JET 
DO 100 J = 1 > NEWMAX 

CHECK WHETHER THERE IS A DEFLECTED HINGE AT ELEMENT J 
SO B = BETAIJ, LCASE ) 

I F ( ABS( B ) .LT. 0.0001 ) GO TO 100 
B = B / 57.295779 
COMPUTE THE GEOMETRIC PARAMETERS 
K J — KK ( J ) 

40 X =~XIII) + DEL(I)*CHORD(KI )/2.00 - XI(J) 

YY = Y(KI ) - Y(KJ) 

50 D2 = DEL(J) * CHORD(KJ) 

D1 = DE L ( J-l ) * CHORD ( KJ ) 

INI = IW(KJ ) ♦ NW( K J ; - 1 
60 IFCITYPE(J) .EQ. ^3 I D1 = DEL( INI ) * CHORD(KJ) 

COMPUTE AND SUM UP THE INFLUENCE OF ELEMENT J 
70 H ( I > = HC I ) + EVD4*X 2 YY,D1>D2 2 DELTA*KJ ) ) * B 
SUPERIMPOSE DOWNWASH FOR SYMEiRlC OR ANTI-SYMETRIC GEOMETRY 
IFdSYMM .GT. 0) GO TO 100 
YY = Y(KI ) + Y ( K J ) 

80 HDUMMY = EVD4* X ,YY 2 D1 ,D2 , DELTA* KJ ) ) 

IFdSYMM .LT. 0) HDUMMY = - HDUMMY 
90 Hdl = Hd) + HDUMMY * B 
100 CONTINUE 
110 CONTINUE 

PRINT OUT THE DOWNWASH IF REQUIRED 
IFdPRINT .GE. 0) RETURN 
NEXT = NEKMAX/10 + 3 

IF* l dLINES + NEXT) . LT . 56) .OR. (ILINES .EQ. 1)) GO TO 120 
WRITE l b , 10 ) 

ILINES = 1 

120 IFdPRINT .LT. 0) WRITE(6, 130 ) LCASE, H 

130 FORMAT ( 1H0 , 35X,44HHINGE INFLUENCE COEFFICIENTS FOR FUNDAMENTAL, 

1 5H CASE, 13 ,60* /IX , 10E13 . 5 ) ) 

ILINES = ILINES + NEXT 

RETURN 

END 

SUBROUTINE STG2S 

THIS PROGRAM CONTROLS SOLUTION OF THE MATRIX SYSTEM 

C0MM0N/MATHEW/NCASES,ISYMM,IPRINT,JETFLG 2 IGTYPE,IHINGE 
COMMON/SPIRIT/ NEWMAX 2 NEWCMU ,NOALFA , LOGIC ,IR 
COMMQN/SOLVl/GAMMA( 600 JO J 
COMMON/SOLV2/WKARE A( 10000 ) 

DIMENSION W( 600 ) ,SUMMER( 600 ) 



IFdPRINT .LT. 0) WRITE ( 6, 10 ) 

10 FORMAT ( 1H1 ,53X, 14HGAMMA SOLUTION) 



SOLVE THE MATRIX FOR GAMMA USING MATRIX 
NSIZE = 10000 
NIN = 2 
NSCR1 = 3 
NSCR2 = 4 

20 CALL MATRIX* NEWMAX,NCASES, NSIZE, NIN, NSCR1 ,NSCR2 ,IR ) 

IFIIR .EQ. 2) GO TO 90 

MATRIX HAS STORED THE SOLUTION IN THE FIRST STORAGE LOCATIONS OF THE 
WKAREA ARRAY. TRANSFER THIS DATA INTO THE GAMMA ARRAY. 

I SUM = 0 

30 DO 70 N = 1 ,NCASES 
DO 40 J = 1 ,NEWMAX 
GAMMA* J,N) = WKAREA* ISUM+J) 

40 CONTINUE 

IFdPRINT .LT. 0) WRITE * 6 , 50 ) N 2 ( GAMMA* J,N ) 2 J = 1 2 NEWMAX ) 

50 FORMAT ( 1H0 ,50X , 16HFUNDAMENTAL CASE ,14,60* /1X,10E13.5 ) ) 

60 I SUM = I SUM ♦ NEWMAX 
70 CONTINUE 

IF REQUIRED, CHECK THE SOLUTION BY BACK SUBSTITUTION 
80 IFdPRINT .LT. 0) CALL BAKSUB* H, SUMMER, NEWMAX ) 

IR = 1 
GO TO 110 

PRINT THE MATRIX ERROR MESSAGE 
90 WRITE* 6, 100 ) 

100 FORMAT* 1H1,40X,40HMATRIX DOES NOT HAVE ENOUGH CORE TO WORK/ 

1 45X,29HTHIS CASE HAS BEEN TERMINATED) 

IR = 2 
110 RETURN 
END 

SUBROUT I NE P RE P * T R ANS , I SI ZE , NE WMAX ) 

THIS SUBROUTINE PREPARES THE FINAL MATRIX FOR SOLUTION BY 
CONCATINATING IT WITH THE RIGHT SIDE MATRIX AND STORING IT 
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ON SCRATCH UNIT 2 FOR INPUT TO MATRIX. 

COMMON/MATHEW/NCASES,ISYMM >IPRINT > JETFLG; IGTYPE *IHINGE 
COMMON/M ARK/NROHSjjNRuNSJ ,NHT ,NJT >NMAX ,NN( 40 ) ,NJ( 40 ) , IW( 40 ) ,1 J ( 40 ) 
COMMON/SOLV1/B) 600,10 I 
DIMENSION TRANS) ISIZE ) 

IREAD = 0 

FIND ( 1 ' IREAD+1 ) 

REWIND 2 

READ THE MATRIX COEFFICIENTS 
DO 40 I = 1, NEWMAX 
IF ( I .EQ. NNT+1) IREAD = NEWMAX 
IREAD = IREAD + 1 
I F ( ISIZE .GT. 600) GO TO 5 
READ( l 1 IREAD ) TRANS 
GO TO 10 

5 READ) 1 1 IREAD ) ( TRANS) J ) ,J=1 , NEWMAX ) 

PULL OUT THE RIGHT SIDE MATRIX COEFFICIENTS AND CONCATINATE THEM 
10 DO 20 N = 1 ,NCASES 

TRANS) NEWMAX+N) = B(I,N) 

20 CONTINUE 

THE MATRIX ROW HAS NOW BEEN ASSEMBLED AND FILLS THE TRANS ARRAY. 

WRITE THE CONCATINATED ROW ON ON UNIT 2 FOR INPUT TO MATRIX. 

SO WRITE) 2) TRANS 
40 CONTINUE 

THE SYSTEM OF LINEAR EQUATIONS IS NOW READY FOR SOLUTION 
RETURN 
END 

SUBROUTINE MATRIX) ND , MD , KD, NI , MM, NO, IR) 

DIRECT MATRIX SOLUTION 

COMMON/SOL V2/A) 10000 ) 

LOGICAL LAST 

N = ND 
M = MD 
KORE = KD 
NPM = N + M 
IF (MAX0J3 * 

IR = 2 
RETURN 
20 MT = MM 
REWIND MT 
NIN = NI 
REWIND NIN 
NOUT = NO 
REWIND NOUT 
MP1 = M + 1 
NN = N 
NEL = NPM 

- - CALCULATE THE MAXIMUM NO. OF ROWS, ' K ' 

30 K = ) KORE - NEL) / NEL 

- - TEST TO SEE IF THE REST OF THE MATRIX WILL FIT IN CORE 

LAST = K .GE. NN 
IF (LAST) K = NN 

- - READ 'K* ROWS OF THE AUGMENTED 'A' MATRIX 

40 NT = 0 

DO BO IB = 1, K 
NS = NT + 1 
NT = NT + NEL 

50 CALL GETT ( NIN, 1, NEL, A(NS), 1, AA2 ) 

- - CHECK TO SEE IF WE WERE UNLUCKY ENOUGH TO END UP WITH ONLY ONE ROW 

IF (K .EQ. 1) GO TO 110 

IS GREATER THAN 'l 1 SO WE CAN START THE TRI ANGULARIZATION 
+ 1 



NPM, M * N ) .LT. KORE) GO TO 20 



'K' 



NELP1 = NEL 
NS = - NEL 
NELP2 = NELP1 + 1 

- - FORM THE 'TRAPEZOIDAL 1 ARRAY (8) 

DO 60 IB = 2, K 
NP = NELP2 - IB 
NS = NS + NELP1 
NT = NS 

DO 60 10 = IB, K 
NT = NT + NEL 
MN = NT 
NB = NS 

A) NT) = ( -A) NT ) ) / A) NS) 

DO 60 NF = 2, NP 
MN = MN + 1 
NB = NB + 1 

60 A) MN ) = A) MN ) + A) NT) * A) NB ) 

IF (LAST) GO TO 110 

- - WRITE THE 'TRAPEZOIDAL* MATRIX ON TAPE 
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NT = 0 
NP = NEL 
NS = - NEL 
DO 70 10 = 1, K 
NS = NS + NELP1 
NT = NT + NEL 

CALL SAVE < MT , 2, NP , NP , A(NS), 1, AA2 ) 

70 IIP = NP - 1 
NP = NP - M 
NS = KORE - NEL + 1 

- - READ ANOTHER ROW 

DO 100 10 = 1, NP 

CALL GETTININ, 1> NEL, A(NS), 1, AA2) 

- - MODIFY THIS ROW BY THE 'TRAPEZOIDAL ' ARRAY 

NT = 1 
MN = NS 

DO 90 IB = 1, K 
NB = NT 
NF = MN + 1 

A ( MN ) = (-A(MN)) / A( NT ) 

DO 80 NN = NF, KORE 
NB = NB + 1 

80 A(NN) = A( NN ) + A( MN ) * A( NB ) 

MN = NF 

90 NT = NT + NELP1 

- - WRITE THE MODIFIED ROW ON TAPE 

NN1 = KORE - MN + 1 

100 CALL SAVE ( NO'JT , 1, NN1 , NN1 , A ( MN ) , 1, AA2 ) 
REWIND NOUT 
REWIND NIN 

- - SWITCH THE TAPES 

NT = NIN 
NIN = NOUT 
NOUT = NT 

- - RE-CALCULATE ROW LENGTH AND LOOP BACK 

NEL = NEL - K 
NN = NEL - M 
GO TO SO 

- - REWIND ALL TAPES 

110 REWIND MT 
REWIND NIN 
REWIND NOUT 



CONDENSE THE MATRIX 
1 



NN = NEL 
NL = NEL * 

IF (K .EQ. 

NS = 1 
NT = NEL 
DO 120 IB = 2 
NS = NS ♦ NEL PI 
NT = NT ♦ NEL 
DO 120 10 = NS, 
AlNL ) = A( 10 J 
120 NL = NL ♦ 1 
130 N1 = KORE - K * 



1) GO TO 130 
K 

NT 

M + 1 



- - THERE, NOW WE CAN START THE BACK-SOLUTION 

* * NOTE.. THE FIRST AVAILABLE LOCATION FOR THE SOLUTIONS IS A(N1) 

NREM = N 
NEL = NPM 
LAST = K .EQ. N 
NPASS = 0 

- - SOLVE FOR THE ANSWERS CORRESPONDING TO 'K' ROWS 

190 KM1 = K - 1 
KP1 = K + 1 
NS = NL - MP1 
NPASS = NPASS + 1 
DO 170 MN = 1, M 
NF = NS + MN 
A( NF ) = A(NF ) / A( NS ) 

NT = NS 

IF ( KM1 .EQ. 0) GO TO 170 
DO 160 IB = 1, KM1 
NF = NF - IB - M 
NT = NT - MP1 - IB 
SUM =0.0 
NP = NF 
N2 = MP1 + IB 
DO 150 10 = 1, IB 
NN = NT + 10 
NP = NP + N2 - 10 
150 SUM = SUM + A( NN ) * A(NP) 

160 A( NF ) = C AC NF ) - SUM J / A( NT ) 
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170 CONTINUE 

- - MOVE THE SOLUTIONS TO CONTIGUOUS LOCATIONS STARTING AT A(N1) 

N1 = KORE + 1 

DO 190 NN = 1 , K 

DO ISO NN = 1, M 

NL = NL - 1 

N1 = N1 - 1 

180 A ( N 1 ) = A( NL ) 

190 NL = NL - NN 

- - WRITE THE SOLUTIONS ON TAPE 

WRITE (NIN) K 
NS = N1 - 1 
DO 200 MN = 1 , M 
NT = NS + MN 

200 WRITE ( NIN ) (A(I0), 10 = NT, KORE, M) 

- - TEST IF THIS IS THE LAST PASS 

IF (LAST) GO TO 280 



* * 



WE MUST NOW MODIFY THE TRIANGULAR MATRIX TO REFLECT THE EFFECT OF 
THE SOLUTIONS 03TAINED SO FAR ( EQ 21) 

NOTE. .LOCATIONS Ad) TO A(N1-1) ARE NOW FREE TO USE 



- - CALCULATE THE NEXT VALUES OF 'NEL' AND ' NREM ' 

NELOLD = NEL 
KOLD = K 
NEL = NEL - K 
NREM = NREM - K 

CALCULATE NEW K. B AND C (REAL) WILL ALWAYS BE INTEGERS. 

K WILL BE CALCULATED REAL AND TRUNCATED GOOD. 

B = 1 + 2*M 

C = 2*( KOLD*( M+l ) - KORE) 

K = ( -B + SQRT(B**2 - 4*C))/2.0 
NROW = NREM - K + 1 
IF (K .LT. NREM) GO TO 210 
LAST = .TRUE. 

NROW = 1 
K = NREM 
210 NS = 1 

NT = NELOLD + 1 

- - READ IN THE ROWS TO BE MODIFIED 

DO 270 IB = 1, NREM 

NT = NT - 1 

IF (IB . LE. NROW) GO TO 220 
NS = NS + NN 

NT = NT + NN 

******ADDED NEXT LINE AND MODIFIED CALL, A.P. SODERMAN, 8/10/76****** 
220 NN=NT-NS+1 

CALL GETT ( MT , 2, NN, A(NS), 1, AA2 ) 

NP = N1 - 1 
NF = NT - M - KM1 
NN = NN - KOLD 

DO 240 MN = 1, M 

N2 = NF 
NA = NP + MN 
NB = NA 
SUM =0.0 

DO 230 10 = 1, KOLD 
SUM = SUM + A(N2) * A( NA ) 

N2 = N2 + 1 

230 NA = NA + M 

N2 = N2 + MN - 1 

240 A(N2) = A ( N2 ) - SUM 

WRITE THE MODIFIED ROW ON TAPE OR CONDENSE THE ROW 

NL = NT - M + 1 

IF (IB ,GE. NROW) GO TO 250 

NF = NL - KP1 

NN1 = NF - NS + 1 

NN2 = NT - NL + 1 

CALL SAVE ( NOUT , 4, NN, NN1 , A(NS), NN2 , A( NL ) ) 

GO TO 270 
250 NF = NL - KOLD 

DO 260 MN = NL, NT 
A( NF ) = A( MN ) 

260 NF = NF + 1 
270 CONTINUE 
REWIND MT 
REWIND NOUT 

- - SWITCH THE TAPES 

NT = MT 
MT = NOUT 
NOUT = NT 

- - LOOP BACK THRU THE SOLUTION 
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NL = NF 
GO TO 140 

- - START TO NRAP IT UP 

280 REWIND NIN 
N2 = N 

* * NOTE.. AT THIS POINT ALL LOCATIONS A(l) THRU A(KORE) ARE 

DO 300 IB = 1, NPASS 
READ ININ) K 
Nl = N2 - K + 1 
NS = N1 
NT = N2 

- - READ IN THE SOLUTIONS 

NM = NT - NS + 1 
DO 290 10 = 1, M 

CALL GETT ( NIN> 1,NM, A(NS), 1, AA2 ) 

290 NS = NS + N 
300 N2 = N1 - 1 
IR = 1 



FREE 



RETURN 
END 
SUBROUTINE 

DIMENSION 

GO TO ( 10 



SAVE ( IU > IT, N, Nl, Al, N2 , A2 ) 
All Nl ) , A2IN2) 

> 20 ,30 >40 ), IT 



WRITE Al 
10 WRITE ( IU ) Al 
RETURN 

WRITE N AND Al 
20 WRITE I IU ) N, Al 
RETURN 

WRITE Al AND A2 
30 WRITE ( IU ) Al, A2 
RETURN 

WRITE N > Al ♦ AND A2 
40 WRITE ( IU ) N, Al, A2 
RETURN 
END 

SUBROUTINE GETT ( IU , IT 



DIMENSION 



Nl, 

All Nl ) , A2CN2) 



Al, N2, A2) 



GO TO ( 10 , 20 , 30 , 40 ), IT 
READ Al 

10 READ! IU) Al 
RETURN 

READ Nl AND Al 
20 READ(IU) Nl, Al 
RETURN 

READ Al AND A2 
30 READ) IU ) Al, A2 
RETURN 

READ IDUM AND Al 
40 READ) IU) IDUM, Al 
RETURN 
END 

SUB ROUT I NE BAKSUB ( TRANS , SUMMER , NEWMAX ) 

THIS SUBROUTINE BACK SUBSTITUTES THE COEFFICIENT MATRIX AND THE 
GAMMA SOLUTION TO CBTAIN THE RIGHT SIDE MATRIX FOR THE PURPOSE OF 
CHECKING THE MATRIX SOLUTION. 

COMMON/MATHEW/NCASES»ISYMM ,IPRINT > JETFLG,IGTYPE 7 I HINGE 
COMMCN/MARK/NROMS,Nr6wSJ >NNT ,NJT ,NMAX,NW( 40 ) ,NJ( 40 ) ,IW( 40 ) ,IJ( 40 ) 
COMMON/SOLV1 /GAMMA) 600, 10 ) 

DIMENSION TRANS) NEWMAX )> SUMMER) NEWMAX ) 

WRITE) 6, 10 ) 

10 FORMAT) 1H1,47X,26HBACK SUBSTITUTION SOLUTION) 

CYCLE THE RIGHT HAND SIDES 
DO 60 N = 1 ,NCASES 
IREAD = 0 
FIND) l'IREAD+1) 

CYCLE THE MATRIX ROWS CORRESPONDING TO ELEMENTS ON THE WING 
DO 40 I = 1, NEWMAX 
READ THE COEFFICIENT MATRIX ROW 
IF) I .EQ. NWT+1) IREAD = NMAX 
IREAD = IREAD + 1 
20 READ) 1 1 IRE AD ) TRANS 

SUM UP THE TERMS FOR THIS ROW AND RIGHT SIDE 
SUMMER) I) =0.00 
DO 30 J = 1, NEWMAX 

SUMMER) I) = SUMMER I) + TRANS) J) * GAMMA) J,N) 

30 CONTINUE 



13 - 



40 CONTINUE 

PRINT THE NTH RIGHT SIDE COLUMN 
WRITE! 6 2 50 I N * SUMMER 

50 FORMAT! lHO ,50X , 17HRIGHT SIDE COLUMN ,14 , 60( /IX , 10E13 . 5 ) ) 

60 CONTINUE 
RETURN 
END 

SUBROUTINE STAGES 

THIS SUBROUTINE CONTROLS CALCULATION OF ALL LOADINGS FOR THE 
FUNDAMENTAL AND COMPOSITE CASES 

COMMON/MATHEH/NCASES ,ISYMM >IPRINT , JETFLG >IGTYPE »IHINGE 
COMMON/MARK/NROWS,NR0WSJ ,NNT ,NJT ,NMAX,NW( 40 ) ,NJf 40 ) , IW( 40 ) ,1 J( 40 ) 
COMMON/JOHN/ AREA , SPAN ,ARATI0 ,TR , SWEEP ,CREF,CMAC ,CBAR ,XMC ,XCG 
COMMON/SPIRIT/ NEWMAX,NEWCMU ,NOALFA , LOGIC ,IR 

COMMON/GEOM1/Y ( 40 ), CHORD! 40 ), DELTA! 40 ) ,XB( 600 ) ,XI( 600 ) ,DEL( 600 ) , 

1 D ! 40 ) *KK ! 600 ),ITYPE( 600 ) 

COMMON/GE OM 2/X L E A D ( 4 0 ),XTRAIL(40 KTANLE ( 40 1 ,TANTE ! 40 ) 

COMMON/ FCASE 3/E PS! 600 » 10 ) ,EETA ( 600 , 10 ) , THETA! 40 , 10 ) >THS( 40 , 10 ) 
COMMON/COMPOS/FACTOR! 10,24 ) ,NCC 
COMMON/ JC ASE /CMU ( 40 I ,CMUP( 40 ) ,CMUPP( 40 ) 

COMMON /DERIV/ UO! 40 ) , CLQ, CMQ , CMQMC 

DIMENSION CPREAD! 610 ) ,CP0( 600 ) ,CPA( 600 ) ,CPR0! 600 ) >CPRA( 600 ) , 

1 CPP! 600 ) 

EQUIVALENCE (BETA! 1*1 ) *CP0( 1 ) ) *( BETA! 1*2 ) »CPA( 1 ) ) » _ ^ _ 

1 (BETA! 1,3 ),CPR0( 1) J,(BETA( 1,4),CPRA( 1 ) 1 , ( BETA ( 1 ,5 ) ,CPP! 1 ) ) 

I F( LOGIC .EQ. 3) GO TO 80 

CALCULATE AND PRINT THE LOADING FOR ALL FUNDAMENTAL CASES 
10 CALL STG3FC! NEKMAX ) 

DO 30 N = 1 ,NCASES 
LCASE = N 

20 CALL STG3FS! CLQ ,CMQ,CMQMC ,DUM4,NEHMAX ,NOALFA , LCASE ) 

30 CONTINUE 

I F ( LOGIC .EQ. 2) WRITE(6» 40 ) CLQ ,CMQ ,CMGMC 

40 FORMAT! 1H0/ 26X,43HLIFT COEFFICIENT DERIVATIVE DUE TO PITCHING, 

1 17H ABOUT XCG , CLQ =,F10.6 / 

2 14X ,51 HP ITCHING MOMENT COEFFICIENT DERIVATIVE ABOUT ORIGIN, 

3 33H DUE TO PITCHING ABOUT XCG, CMQ =,F10.6 / 

4 16X ,42HPITCHING MOMENT COEFF DERIVATIVE ABOUT XMC , 

5 3EH DUE TO PITCHING ABOUT XCG, CMQMC =, F10.6) 

CALL STG3FT 

CALCULATE AND PRINT THE LOADING FOR ALL COMPOSITE CASES 
IF ( NCC .LT. 1) GO TO 100 
DO 60 M = 1 ,NCC 
MCASE = M 

50 CALL STG3C(NENMAX, MCASE, NOALFA) 

60 CONTINUE 
70 GO TO 100 

CALCULATE AND PRINT THE COEFFICIENTS AND DERIVATIVES FOR ALL 
FUNDAMENTAL CASES 

80 CALL FUNDER! EPS,CP0 , CPA ,CPR0 ,CPRA , CPP , DEL , CHORD ,Y , DELTA , CMU , AREA , 

1 CLQ , CMQ , CMQMC , CL LP,CNP2 ,NW ,1 J ,NMAX,NJT ,NENMAX, MCASE S, NOALFA, 

2 NROWS , I SYKM , XLE AD ,TANLE ,XMC ) 

CALCULATE AND PRINT THE STABILITY DERIVATIVES FOR ALL COMPOSITE CASES 
90 CALL COMDER! EPS,CP0 , CPA, CPRO ,CPRA , CPP , CPREAD, DEL, CHORD ,Y ,CMU, 

1 DELTA, AREA, CLQ, CMQ, CMQMC ,CLLP ,CNP2 ,NW , I J ,NMAX ,NJT ,NEWMAX , 

2 NCASES,NRONS,ISYMM,XLEAD,TANLE,XMC) 

100 RETURN 

END 

SUBROUTINE STG3FC( NEHMAX ) 

THIS SUBROUTINE CONTROLS CALCULATION OF CHORDHISE LOADING 
FOR FUNDAMENTAL CASES 

COMMON/MATHEW/NCASES ,ISYMM ,IPRINT , JETFLG , IGTYPE ,IHINGE 
COMMON/MARK/NROMS ,NRCNSJ ,NWT ,NJT ,NMAX ,NW( 40 ) ,NJ( 40 ) ,IW( 40 ) ,1 J( 40 ) 
COMMON/GEOMl/Y! 40 ) , CHORD ( 40 ) , DELTA! 40 ) ,XB( 600 ) ,XI ( 600 ) ,DEL! 600 ) , 

1 D! 40 ) ,KK! 600 ) ,ITYPE ( 600 ) 

COMMON/ FCASE 3/E PS! 600,10 ) ,BETA( 600 , 10 ) , THETA ( 40 , 10 ) ,THS( 40 , 10 ) 
COMMON/ JCASE/CrVJ! 40 ) ,CMUP ( 40 ) ,CMUPP ( 40 ) 

COMMON/SOLV1/CP! 600 ,10 ) 

DIMENSION XBB! 5), CPE XP (5, 10) 

CALCULATE AND PRINT THE CHORDWISE LOADING OF THE FUNDAMENTAL CASES 

INITIALIZE THE UNUSED VALUES OF CP FOR PRINTING 
NCI = NCASES + 1 
I F ( NCI .GT. 10) GO TO 30 
DO 20 N = NCI, 10 
DO 10 I = 1,NEWMAX 
CP ( I ,N ) = 0.00 
10 CONTINUE 
20 CONTINUE 
30 I = 0 
II = NWT 

DO 320 K = 1, NROWS 

IF ( IPRINT .GT. 0) GO TO 70 

WRITE! 6 , 40 ) 

40 FORMAT! 1H1 ,35X,12( 4H**** ),1H*/ 

1 36X,49H* CHORDWISE LOADING FOR ALL FUNDAMENTAL CASES 

2 36X,12(4H****),1H*1 
WRITE ( 6 , 50 ) K ,Y( K ) , CHORD (K),(N,N=1,10) 

50 FORMAT! 1H0,35X, 7HSECTION, 13, 5X,3HY = , F10 . 6 ,5X, 7HCHORD =,F10.6/ 



*/ 
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1 8X » 1HI ,5X,2HXB,3X,9( 5X,4HCASE ,1 2 ) ,5X,4HCASE ,13 ) 

ON THE WING 

WRITE 1 6 > 60 ) 

60 FORMAT ! 1H + »4HWING ) 

70 NNK = NW(K) 

DO 100 L = 1,NWK 
1=1 + 1 

DO 80 N = 1 ,NCASES 

CP! I ,N l = 2.00 * CP( I ,N ) 

80 CONTINUE 

I F ! IPRINT .LT. 11 WRITE ( 6 , 90 ) I ,XB< I ) , ( CP ! I ,N ) ,N = 1 , 10 ) 

90 FORMAT ( 1H ,I8,11F11.6 ) 

100 CONTINUE 

I LINES = NWK + 9 

ON THE JET 

NJK = NJ( K ) 

IF(CMUIK) .LT. 0.00011 GO TO 140 
I F( IPRINT .LT. 1) WRITE ( 6 , 110 1 
110 FORMAT! 1H ,1X,3HJET) 

DO 130 L = 1 ,NJK 

II = II + 1 

DO 120 N = 1 ,NCASES 

CP ( 1 1 ,N ) = 2.00 * CP! II ,N ) 

120 CONTINUE 

I F ( IPRINT .LT. 1) WRITE ( 6 , 90 ) II ,XB( II ) , ( CP ( 1 1 ,N ) ,N = 1 , 10 ) 

130 CONTINUE 

I LINES = I LINES + NJK + 1 

PRINT THE DETAILED LOADING ON THE SINGULAR ELEMENTS 
LEADING EDGE 

140 IF! IPRINT .GT. 0 ) GO TO 320 
WRITE! 6, 150 1 

150 FORMAT! lHO , 45X , 29HDETAI LED LEADING EDGE LOADING) 

IP = IWIK J 

DO 160 N = 1 >NC ASES 

LCASE = N 

CALL EXPLE! LCASE , CP! IP , LCASE ) ,CP( IP + 1 , LCASE ),DEL( IP ) , XBB ,CPEXP ) 
160 CONTINUE 

DO 170 M = 1,5 

WRITE ( 6, 90 ) M >XBB( M ) , ( CPEXP! M ,N ) ,N=1 ,NCASES ) 

170 CONTINUE 

I LINES = I LINES + 7 

HINGES 

IFdHINGE .EQ. 0) GO TO 320 
J = IW( K ) - 1 
DO 250 L = 1 ,NWK 
J = J + 1 

I F( ITYPE! J ) .LT. 40) GO TO 250 
DO 180 N = 1 >NCASES 
LCASE = N 

CALL EXPH1! LCASE ,CP! J,N 1 ,CP( J-1,N 1 , DEL! J-l ), BETA! J ,N ) , 

1 CHORD! K),X8(J J, XBB, CPEXP 1 

180 CONTINUE 

I F ! I LINES .LT. 46) GO TO 200 
WRITE! 6, 190 ) 

190 FORMAT! lHl ) 

I LINES = 1 

200 WRITE! 6, 210 ) J 

210 FORMAT! lHO ,42X , 33HDETAI LED HINGE LOADING ON ELEMENT, 14) 

DO 220 M = 1,5 

WRITE ! 6 , 90 ) M, XBB! M ),! CPEXP! M,N ) ,N=1 ,NCASES ) 

220 CONTINUE 

DO 230 N = 1 ,NCASES 
LCASE = N 

CALL EXPH2! LCASE ,CP( J ,N 1 ,CP( J + l ,N ) ,DE L ( J 1 ,BETA( J,N), 

1 CHORD! K ),XB(J ), XBB, CPEXP ) 

230 CONTINUE 

DO 240 M =6,10 

WRITE! 6, 90 ) M ,XBB( M-5 1 , ( CPEXP! M-5 ,N ) ,N = 1 ,NCASES ) 

240 CONTINUE 

I LINES = I LINES + 12 
250 CONTINUE 

IFMNJ(K) .EQ. 0) . OR . ( CMU! K ) .LT. 0.0001)) GO TO 320 
J = I J ( K ) 

IF! ITYPE! J ) .NE. 43) GO TO 320 
DO 260 N = 1 ,NCASES 
LCASE = N 

II = I W( K ) + NW(K) - 1 

CALL EXPH1( LCASE, CP! J ,N ) ,CP! II ,N ) ,DEL( II ) ,BETA! J,N), 

1 CHORD! K),XB(J ), XBB, CPEXP ) 

260 CONTINUE 

I F ! ILINES .LT. 46) GO TO 270 
WRITE! 6, 190 ) 

ILINES = 1 

270 WRITE! 6, 280 ) J 

280 FORMAT! lHO ,40X ,37HDETAI LED JET HINGE LOADING ON ELEMENT, 14) 

DO 290 M = 1,5 

WRITE ( 6 , 90 ) M ,XBB( M),(CPEXP(M,N),N = 1 ,NCASES ) 

290 CONTINUE 

DO 300 N = 1 ,NCASES 
LCASE = N 

CALL EXPH2! LCASE ,CP ( J ,N ) ,CP( J + l ,N ) ,DE L ( J ) ,BETA( J ,N ) , 

1 CHORD! K ) , XB ( J ), XBB, CPEXP ) 

300 CONTINUE 

DO 310 M = 6,10 

WRITE! 6, 90 ) M ,XBB( M-5 ) , ( CPEXP! M-5 ,N ) ,N = 1 ,NCASES ) 

310 CONTINUE 
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ILINES = I LINES + 12 
320 CONTINUE 
RETURN 

SUBROUTINE STG3FS) CLQ ,CMQ ,CMQMC >CLLP ,NEWMAX,NOALFA , LC ) 

THIS SUBROUTINE CONTROLS CALCULATION OF ALL SPANWISE AND TOTAL 
LOADING FOR FUNDAMENT L CASES 

CQMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE ,IHINGE 
COMMON/MARK /NRCWS ,NROWSJ ,NWT ,NJT ,NMAX ,NW( 40 ) ,NJ( 40 ) ,IW( 40 ) ,1 J) 40 ) 
COMMON/JOHN/ AREA >SPAN , ARATIO ,TR »SWEEP ,CREF ,CMAC »CBAr >XMC *XCG 
COMMON/GEOMl/Y) 40 ) ,CHORD( 40 ) , DELTA! 40 ) ,XB( 600 ) ,XI( 600 1 ,DEL( bOO ) , 

1 D(40 1 ,KK( bOO l ,ITYPE( 600 ) 

C0MM0N/GE0M2/XLE AD) 40 ) ,XTRAIL< 40 » ,TANLE( 40 ) ,T ANTE ( 40 ) 

COMMON/FCASE 2/TST ( 40 »10 1 ,HL( 40 ,10 1 >DJ( 40 1 » ACTE ( 40 1 ,AC( 20,40 1 , 

1 XHB( 4 ,40 ) ,BET( 4,40 ) ,1 FS( 4 ,40 1 ,ICT( 40 ) ,IHT ( 40 ) ,NCT ,NHT 

COMMON/FCASE 3 /EPS) 600,10 > ,BETA) 600,10 ) ,THETA( 40 , 10 1 ,THS) 40 , 10 ) 

C OMMON/ JC AS E /C MU ( 40 ) ,CMUP( 40 ) ,CMUPP( 40 1 
C0MM0N/S0LV1/CP) 600,10 ) 

COMMON/LOAD 1/ TWIST) 40 1 ,H0( 40 ) ,TH( 40 ) ,THETSt 40 1 , 

1 BTA( 600 J ,EP(600 ), CPD (600 ) 

COMMON/LOAD 2/ CLG( 40 1 ,CLMU( 40 i ,CLi 40 ) ,CDMU( 40 1 ,CDG( 40 1 ,CDI< 40 1 , 

1 CS( 40 ) ,CM3( 40 ),CMMU(40 ) ,CMT(40 I, CM) 40 ) ,XBCP(40 ) ,XBCL(40 ) 

COMMON/ LOAD 3/ CCLG) 10 1 ,CCLJ( 10 ),CCL( 10 ),CCMG( 10 1 ,CCMJ( 10 1 , 

1 CCMT ( 10 1 ,CCM( 10 ) ,CMGMC< 10 KCMJMC) 10 ),CMTMC( 10 ),CMMC( 10), 

2 CXCP) 10 ),CXCL( 10 ),CCJ( 10 > ,CCDG( 10 ) >CCDJ( 10 ) ,CCS( 10 ) ,CCDI( 10 1 , 

3 CDITZ) 101 ,CLLG( 101 ,CLLJ< 10 ),CLL( 10 ),CNJ( 10 1 ,CNI < 10 1 ,CCY ( 10 1, 

4 CXCPBl 10 ),CXCLB) 10 1 

COMMON/ L0AD4/ CLGO) 40 ) ,CLMUO( 40 1 ,CLO( 40 1 ,CDMUO( 40 ) ,CDGO( 40 ) , 

1 CDIO) 40 ) ,CSO) 40 ) ,CT0( 40 ) ,CMGO( 40 1 ,CMMUO( 40 1 ,CMTO( 40 1 ,CMO( 40 1 , 

2 XBCPO ( 40 ) ,XBCL0 ( 40 1 * FACT ( 10 ) 

C0MM0N/L0AD5/ CGAM( 40 ) ,CGAMO( 40 1, ALFINF ( 40 1 , ALFINO) 40 1 ,DUMB( 40 ) 
COMMON/LOAD 7/CBGR( 10 ) ,CBGL< 10 ) ,CBJR) 10 1 ,CBJL( 10 1 , 

1 CBR( 10 1 ,CBL( 10 1 ,CPBMR( 10 ),CPBML< 10 ),CL2R( 10 ),CL2L( 10) 

10 N = LC 

LCASE = LC 

LOAD THOSE GEOMETRIC PARAMETERS WHICH ARE DIFFERENT FOR EACH CASE 
INTO THEIR RESPECTIVE DUMMY ARRAYS 
DO 30 K = 1,NR0WS 
TWIST ( K 1 = TST ( K » LCASE 1 
20 THC K ) = THETA(K, LCASE J 
THETS(K) = THS(K, LCASE 1 

HO) K ) = HL(K, LCASE 1 
DUMB) K 1 =0.00 

30 CONTINUE 

DO 50 I = 1 ,NEWMAX 
40 BTAII) = BETA) I, LCASE 1 
EP( I ) = EPS) I , LCASE ) 

CPD) I 1 = CP) I, LCASE 1 
50 CONTINUE 

COMPUTE SECTIONAL COEFFICIENTS 
ALPHA = 0.00 

IF) (LCASE .EQ. 1) .AND. (NOALFA .NE. 0)1 ALPHA = 1.00 
60 CALL SLOAD) ALPHA, I J,NW,NJ, CHORD, CMU ,TH ,THETS , TWIST, 

1 xb,del,bta,ep,Cpd,cl,clg,clmu,cm,Cmg,cmmu,cmt,xbcp,xbcl, 

2 CDI,CDMU,C0G,CS,CT0,NROWS,IHINGE 1 

COMPUTE SECTIONAL VORTICITY OF WING-JET SYSTEM 

CALL SLOADG) CPD, DEL, BT A , CHORD , D >CMU ,NJ ,1 J ,CLG ,CGAM ,NROWS ,IHINGE ) 

COMPUTE SECTIONAL DOWNWASH AT INFINITY 

70 CALL TREFTZIY, DELTA, CMU, CGAM, ALFINF, NROWS,ISYMM) 

COMPUTE TOTAL LINEAR COEFFICIENTS 

80 CALL T LOAD ( ALPHA , AREA, CREF ,XMC ,Y , DELTA , CHORD , HO ,XB,XLE AD >BT A , 

1 CLG,CLMU,CMG,CMMU,CMT ,CMU ,CCLG ( U ) ,CCLJ( N ) ,CCL< N > >CCMG) N ) , 

2 CCMJ) N 1 ,CCMT ( N 1 ,CCM( N ) ,CMGMC( N 1 ,CMJMC( N 1 ,CMTMC( N ) ,CMMC ( N) , 

3 CXCP) N 1 ,CXCL( N 1 ,CXCPB( N ) ,CXCLB( N 1 ,CC J) N 1 ,CLLG( N 1 ,CLLJ( N 1 , 

4 CLL ( N ) ,ITYPE , IW ,NW ,NROWS ,ISYMM , 

5 CBGR ( N 1 ,CBGL( N ) ,CBJR( N 1 ,CBJL( N J ,CBR( N 1 ,CBL( N 1 , 

6 CPBMR) N 1 >CPBML( N 1 ,CL2R( N 1 ,CL2L( N 1 ) 

COMPUTE TOTAL NONLINEAR COEFFICIENTS 

90 CALL TLOADX) ARE A, CHORD, DELTA, Y, CMU, CDG ,CDMU >CS ,CDI , CL, DUMB, 

1 CCDG) N),CCDJ(N), CCS) N),CCDI(N1, CDITZ) N), DUMB, ALFINF, DUMMY, CCJ) 1), 

2 CNJ) N 1 ,CNI ( N 1 ,CCY ( N 1 ,XLEAD ,TANLE ,XMC ,NROWS,ISYMM 1 

DEFINE THE CONSTANT STABILITY DERIVATIVES 
CLQ = CCLG(NCASES) 

CMQ = CCMG) NCASES ) 

CMQMC = CMGMCt NCASES) 

CLLP = CLLG) NCASES) 

PRINT LIFT AND DRAG COEFFICIENTS 
IF) I PRINT .GT. 1) RETURN 
WRITE) 6, 100 1 LCASE 
100 FORMAT) 1H1 ,36X, 11) 4H**** )»2H**/37X, 

1 17H FUNDAMENTAL CASE, 13, 3H 

WRITE) 6, 110 1 

110 FORMAT) 1H ,19X,29H LIFT ,5X, 

1 2H..,7(4H 1 , 14H INDUCED DRAG , 8) 4H 1/ 

2 IX, 7HSECTION, 5X,1HY ,8X,3HCLG ,7X,4HCLMU,6X,2HCL ,5X, 

3 4H * , 3X , 3HCDG ,8X ,4HCDMU , 7X , 2HCS , 9X , 2HCD , 9X ,3HCMU , 

4 8X .5HGAMMA ,6X ,5HALFIN ) 

WRITE) 6 , 120 1 (K,Y(K),CLG(K) 2 CLMU(K),CL(K)>CDG(K),CDMU(K), 

1 CS( K 1 ,CDI( K 1 ,CMU( K 1 ,CGAM( K 1 , ALFINF) K 1 ,K=1 ,NROWS 1 

120 FORMAT ( 1H ,14, 4X, 4F10.6, 4H * ,7F11.7) 



, 23H* SPANWISE LOADir4G 
*/37X, 11) 4H**** 1 ,2H** 1 



FOR, 
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WRITE! 6 , ISO ) CCLG(N),CCLJ(N),CCL(N),CCDG(N),CCDJIN)>CCS(N), 

1 CCDI<N),CCJ!N),COITZ(N) 

ISO FORMAT! 1H , 8X, 4! 10H ),4H * ,7!11H )/ 

1 12X,5HT0TAL,2X,3F10.6,4H * ,5F11 . 7 , 11X, Fll . 7 ) 

PRINT PITCHING MOMENT AND CENTER OF LIFT OATA 
I F ( NROWS .GT. 21) WRITE ( b , 140 ) 

140 FORMAT! 1H1) 

WRITE! 6, 150 ) 

150 FORMAT! 1H0,24X,39H PITCHING MOMENT ,10X, 

1 20H . . . LIFT CENTER . . ./ 

2 6X, 7HSECTI0N,5X,1HY,8X 2 3HCMG,7X,4HCMMU,6X,3HCMT,7X,2HCM, 

S 5X» 10H * * 2 3X,5HXCP/C,5X,5HXCL/C ) 

WRITE ! 6 , 160 ) ! K »Yl K ) ,CMG( K ) ,CMMU( K ) ,CMT ( K ) ,CM( K ) ,XBCP ! K ) ,XBCL( K ) 
1, K=1,NR0WS) 

160 FORMAT! 1H ,I9*4X 2 5F10 . 6 2 10H * * *2F10.6) 

WRITE! 6, 170 ) COIGt N ) >CCMJ! N ) 2 CCMTl N ) 2 CCM! N ) 2 CXCP l N ) >CXCLl N ) , 

1 CMGMC! N ) ,CMJMC( N ) , CMTMC! N ) ,CHMC( N ) , CXCPB! N ) 2 CXCLB( N ) 

170 FORMAT! 1H ,13X 2 5( 10H ),10H * * , 2110H )/ 

1 17X,5HT0TAL,2X, 4F10.6, 10H (APEX) ,2Fl0.6,9H (X/CREF)/ 

2 24X >4F10 . 6 , lOH ( XMC ) ,2F10.6,8H ( X/B/2 ) ) 

RETURN 

ENO 

SUBROUTINE STG3FT 

THIS SUBROUTINE PRINTS A TABLE OF ALL TOTAL COEFFICIENTS 
FOR ALL FUNDAMENTAL C. SES 



C0MM0N/MATHEW/NCASES 2 ISYMM,IPRlNT,JETFLG 2 IGTYPE>IHINGE 
C0NM0N/L0A03/ CCLG! 10 ) 2 CCLJ! 10 ),CCL( 10 ) 2 CCMG! 10 KCCMJ! 10 ), 

1 CCMT! 10 ) ,CCM! 10 )»CMGMC< 10 ) 2 CMJMC( 10 ) 2 CMTMC! 10 ) 2 CMMC! 10 ) 2 

2 CXCP ! 10 ) »CXCL! 10 ) >CCJ( 10 ) 2 CCDGl 10 ) ,CCDJ< 10 ) ,CC$I 10 ) ,CCDI( 10 ) , 

3 CDITZ! 10 ),CLLG< 10 KCLLJ! 10 ),CLL( 10 ),CNJ! 10 ),CNI( 10 ),CCY( 10 ), 

4 CXCPB! 10 ) • CXCLB! 10 I 
CHARACTERS COEFF! 35) 

COMMOf)/LOA06/COE FF 

COHMON/LOAD7/CBGR! 10 ) ,CBGL( 10 ) ,CBJR( 10 ) ,CBJL( 10 ) 2 
1 CBR! 10 ) , CBL! 10 ) >CPBMR( 10 ) ,CPBML( 10 ) >CL2R( 10 ),CL2L( 10 ) 

INITIALIZE ALL UNUSEO TOTAL COEFFICIENTS TO ZERO FOR PRINTING 
IF! NCASES .EQ. 10) GO TO 20 
NCI = NCASES + 1 



DO 10 N 


- 


NC1 2 10 

0.00 


CCLG! N ) 


= 


CCLJ! N ) 


= 


0.00 


CCL! N ) 




0.00 


CCOG! N ) 


= 


0.00 


CCOJ! N ) 


= 


0.00 


CCS! N ) 


- 


0.00 


CCOI(N ) 


= 


0.00 


CDITZ! N ) 




0.00 


CCJ(N) 


= 


0.00 


CCMG(N) 


= 


0.00 


CCMJ! N ) 


= 


0.00 


CCMT(N ) 


= 


0.00 


CCM! N ) 


= 


0.00 


CXCP! N ) 


= 


0.00 


CXCL! U ) 


= 


0.00 


CXCPB! N) 


= 


0.00 


CXCLB! N ) 




0.00 


CMGMC! N) 


= 


0.00 


CMJMC(N) 


= 


0.00 


CMTMC! N ) 


= 


0.00 


CMMC! N ) 


— 


0.00 


CLLG! N ) 


= 


0.00 


CLLJ! N ) 


r 


0.00 


CLL! U ) 


= 


0.00 


CNJ! N ) 


~ 


0.00 


CNI! N ) 


= 


0.00 


CCY(N) 


= 


0.00 


CBGR(N) 




0.00 


CBGL(N) 


= 


0.00 


CBJR(N) 


= 


0.00 


CBJL! N ) 




0.00 


CBRtN) 


= 


0.00 


CBL! N ) 
CPBMRIN ) 


— 


0.00 


= 


0.00 


CPBML! N ) 


= 


0.00 


10 CONTINUE 







20 WRITE! 6 » 30 ) (N 2 N = 1,10) 

30 FORMAT! 1H1,41X* 9( 4H**** )/ 

1 42X,36H* TOTAL AERODYNAMIC COEFFICIENTS */42X, 9! 4H**** )// 

2 14X,9(4HCASE,I2,5X), 4HCASE,I3) 

40 FORMAT! lHO, 2X ,A8 , 10F11 . 7 2 34( /3X ,A8 ,10F11 . 7 ) ) 



WRITE! 6, 



1 

2 

3 

4 

5 

6 

7 

8 
9 
0 
1 
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)COEF F ! 1) 
COEFF! 4) 
COEFF! 7) 
COEFF! 10 ), 
COEFF! 13 ), 



. / > i / 

CCLG, COEFF! 2 ), CCLJ 
CCDG, COEFF! 5 ), CCOJ 
CCDI, COEFF! 8 ) , CDITZ 
CCMG, COEFF! 11), CCMJ 
CCM, COEFF! 14 ), CXCP 
COEFF! 17), CXCLB 
COEFF! 20 ) , CMTMC 
COEFF! 23 ), CLLJ 



COEFF! 16 ), CXCPB, 

COEFF! 19 ) ,CMJMC , 

COEFF! 22 ), CLLG , 

COEFF! 25 ) 2 CNJ 2 COEFF! 26 ) 2 CNI 
COEFF! 28 ) ,CBGR, COEFF! 29 ) ,CBGL, COEFF! 30 
COEFF! 31 ) ,CBJL , COEFF! 32 ) , CBR , COEFF! 33 
COEFF! 34 ) ,CPBMR , COEFF! 35 ) ,CPBML 



COEFF! 3), CCL , 
COEFF! 6), CCS, 
COEFF! 9), CCJ, 
COEFF! 12), CCMT , 
COEFF! 15), CXCL , 
, COEFF! 18), CMGMC, 
, COEFF! 21), CMMC , 
, COEFF! 24 ), CLL , 
, COEFF! 2 7 J > CCY, 
),CBJR, 

),CBL> 



50 



RETURN 

END 

SUBROUTINE 



STG3C! NEWMAX,M,NOALFA ) 



13S 



THIS SUBROUTINE CONTROLS CALCULATION OF CHORDWISE, SPANWISE ANO 
TOTAL LOADING FOR THE REQUIRED COMPOSITE CASES 

COMMCN/MATHEW/NCASES »ISYMM ,IPRINT » JETFLG,IGTYPE »IHINGE 
COMMQN/MARK/NRQNS ,NROWSJ ,NWT »NJT ,NMAX ,KW( 40 ) ,NJ( 40 ) ,IW( 40 ) ,IJ( 40 ) 
COMMON/JOHN/ AREA > SPAN ,ARATlO,TR, SWEEP ,CREF ,CMAC,CBAR >XMC,XCG 
C0MM0N/GE0H1/Y ( 40 ) , CHORD! 40 ),DELTAl 40 ),XB( 60O ) ,XI ( 600 ) , DEL! 600 ), 

1 Dl 40 ) ,KK( 600 ),ITYPE! 600 ) 

C OMMON/GE OM 2/XLEAD140 ) ,XTRAlL( 40 ) ,TANLE( 40 ) ,TANTE( 40 ) 
CONMQN/FCASE2/TST ( 40 ,10 ) ,HL( 40 , 10 I ,DJ( 40 ) , ACTE! 40 ) ,AC( 20,40), 

1 XHB! 4,40 ) >BcT( 4,40 ) >IFS( 4,40 I ,ICT( 40 ) ,IHT( 40 ) ,NCT ,NHT 

COMMON/FCASE 3/EPS ( bOG , 10 ) ,BETA( bG0,10 ) , THETA ( 40 , 10 ) ,THS( 40 , 10 ) 
COMUON/JCASE/CMUl 40 ),CM‘JP(40 ) ,CM'JPP140 ) 

COMMON/SOLV1/CP ( 600,10 ) 

COMMON/COMPOS/ FACTOR! 10,24 ),NCC 

COMMON/LOAD 1/ TWIST! 40 ) ,H0< 4o ) ,TH( 40 ) ,THETS< 40 ) , 

1 BTA( 600 ) ,EP( 600 ) ,CP0( 600 ) 

C OMMON/ L 0 A D 2 / CLG! 40 ) ,CLMU! 40 ) ,CL( 40 ) ,C0MU( 40 ) ,C0G< 40 ) ,C0I ( 40 ) , 

1 CS( 40 ) ,CMGl 40 ) ,CMMU!40 ) ,CMT! 40 ) ,CM( 40 i,XBCP( 40 ),XBCL(40) 

COMMON/ LOAD 3/ CCLG< 10 ) ,CCLJ( 10 ) ,CCL( 10 ),CCMG( 10 ) ,CCMJ( 10 ), 

1 CCMT ( 10 ),CCM( 10 ) *CMGMC( 10 ) ,CMJMC( 10 !,CMTMC( 10 ) ,CMMC( 10 ) , 

2 CXCP( 10 I *CXCL( 10 ),CCJ( 10 ),CCDG( 10 ),CCDJ( 10 ),CCS( 10 ),CCOI( 10 ), 

3 CDITZl 10 I ,CLLG( 10 ),CLLJ( 10 ),CLL( 10),CNJ( 10 ) ,CNI ( 10 ) ,CCY( 10 ), 

4 CXCPB( 10 ) >CXCLB( 10 ) 

C0MM0N/L0AD4/ CLG0( 40 ) ,CLMU0( 40 ) >CL0( 40 ) >C0MU0( 40 ) ,CDG0( 40 ) , 

1 CDI01 40 ) ,CS0( 40 ) ,CT0( 40 ) ,CMG0( 40 ) ,CMMU0( 40 ) ,CMT0( 40 ) ,CM0( 40 ) , 

2 XBCP01 40 ) ,XBCL0( 40 ) ,FACT( 10 1 

C0MM0N/L0AD5/ CGAM( 40 ) ,CGAM0( 40 ) , ALFINF ( 40 ) ,ALFIN0( 40 ) ,0UMB( 40 ) 
CHARACTERS COEFF(35) 

COMMON/LOAD 6/COE F F 

COMMCN/LOAD7/CBGR( 10 ) ,CBGL( 10 ) ,CBJR( 10 ) ,CBJL( 10 ) , 

1 CBRl 10 ),CBL< 10 ),CPBMR( 10 ),CPBML( 10 ),CL2R( 10 ),CL2L( 10 ) 

DIMENSION CDMUX1 40 ) ,CDGX( 40 ) ,CDIX( 40 ) ,CSX( 40 ) ,CPA( 600 ) 

EQUIVALENCE t CP ( 1,1) ,CPA( 1 ) ) 

CALCULATE ANO PRINT THE CHORDWISE LOADING FOR ALL COMPOSITE CASES 

1 = 0 
II = NWT 

I LINES = 6 
WRITE ( 6 , 10 ) M 

10 FORMAT ( 1H1,36X,11<4H****),1H*/ 

1 37X,39H* CHORDWISE LOAOING FOR COMPOSITE CASE, 13, 3H */ 

2 37X,11(4H****),1H*) 

WRITE! 6 , 20 ) ( N,N = 1 , 10 ),( FACTOR! N ,M ),N=1, 10 ) 

20 FORMAT ! lH ,48X, 24HPUNDAMENTAL CASE FACT0RS/10X , 9( 5X,2HA( ,11 ,1H ) , 

1 3X),5X,2HA( ,:2,1H )/10X , 10F12 . 6 ) 

WRITE! 6,25) 

25 FORMAT! 1H0 , 7X ,47H*** NOTE EACH LEAOING EDGE CP VALUE IS THE, 

1 43H AVERAGE VALUE OF THE SINGULAR DISTRIBUTION) 

IF! IHINGE .NE. 0) WRITE! 6,26) 

26 FORMAT! 1H ,21X,47HIF A HINGE IS DEFLECTED THE LOADING IS SINGULAR, 

1 58H AND THE CP!A=0) VALUE IS FOR THE REGULAR EVO PORTION ONLY) 

WRITE (6,27) 

27 FORMAT! lH ,21X,41HD0 NOT PLOT THESE LOAOING POINTS OIRECTLY ) 

00 190 K = 1,NR0MS 

ON THE WING 
NWK = NW! K ) 

DO 50 L = 1 ,NWK 

1 = 1 + 1 

30 CPO ( I ) = 0.00 

DO 40 N = 1 ,NCASES 
FACT ! N ) = FACTOR! N,M) 

CPO(I) = CPO(I) + CP! I ,N ) * FACT ( N ) 

40 CONTIfRJE 
50 CONTINUE 

NCI = NCASES + 1 
I F ( NCI .GT. 10) GO TO 70 
DO 60 N = NCI, 10 
FACT ( N ) = 0.00 
60 CONTINUE 
70 J1 = IW(K) 

J2 = IW(K) + NWK - 1 

NEXT = 3 + ( 2+NOALFA ) * (NWK/10 + 1) 

IFICMU(K) .GT. 0.0 NEXT = NEXT + (2+NOALFA) * (NJ(K)/10+1) + 1 
ILirmS = ILINES + NEXT 

IF ( ( I LINES .LT. 56) .OR. (K .EQ. 1)) GO TO 90 
WRITE! 6, 80 ) 

80 FORMAT! 1H1 ) 

ILINES = 1 

90 WRITE ( 6 , 100 ) K ,Y( K ) ,CHORO( K ) 

100 FORMAT! 1H0,35X, 7HSECTION, 13, 5X,3HY =, F10. 6 ,5X, 7HCH0RD =,F10.6/ 

1 2X ,4HWING ) 

WRITE ( 6 , 110 ) (XB( J ),J=J1,J2) 

110 FORMAT! 1H , 7X , 2HXB , 10F12 . 6 ,3 ( /10X , 10F12 . 6 ) ) 

WRITE ( 6 , 120 ) (CPO! J)>J=J1,J2) 

120 FORMAT ( lH ,2X, 7HCP! A = 0 ) , 10F 12 . 6 , 3 ( /10X , 10F12 . 6 ) ) 

I F ( NOALFA .GT. 0) WRITE(6, 130 ) ( CPA! J ) , J=J1 , J2 ) 

130 FORMAT ( 1H ,2X, 7HCP! A=1 ) , 10F12 . 6 ,3! /10X, 1CF12 . 6 ) ) 

ON THE JET 

NJK = NJ( K ) 

I F ( CMU! K ) .LT. 0.0001) GO TO 190 
00 160 L = 1 ,NJK 

II = II + 1 
140 CPO! II ) = 0.00 

DO 150 N = 1, NCASES 

CPO(II) = CPO(II) + CP! II ,N ) * FACT ( N ) 

150 CONTINUE 
160 CONTINUE 
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170 J1 = IJIK) 

J2 = I J( K ) + NJK - 1 
WRITE ( 6; 180 ) 

180 FORMAT ( lH ,4H JET) 

WRITE ( o , 110 ) (XB( J),J=J1,J2) 

WRITE ( 6 , 120 ) )CP0< J > , J=Jl , J2 ) 

I F ( NOALFA .GT. 0) WRITE) 6 , 130 ) ( CPA) J ) , J=J1 , J2 ) 

190 CONTINUE 

COMPUTE AND PRINT SPANWISE AND TOTAL LOADINGS FOR EACH COMPOSITE CASE 

DEFINE THE FUNDAMENTAL CASE VARIABLES FOR ALPHA = 1 
IF ) NOALFA .EQ. 0) GO TO 250 
DO 210 K = 1 »NR0WS 
200 TWIST ( K ) = T$T(K,1) 

TH ( K ) = THETA( K , 1 ) 

THETSIK I = THS( K > 1 ) 

210 CONTINUE 

DO 230 I = 1 »NEWMAX 
220 BTA( I ) = BETA) I >1) 

EPIII = EPS(I,1) 

230 CONTINUE 

COMPUTE SECTIONAL COEFFICIENTS FOR ALPHA = 1 
ALPHA = 1.0 

240 CALL SLOAD(ALPHA>IJ>NW,NJ, CHORD, CMU,TH,THETS, TWIST, 

1 XB,DEL,BTA>EP,CPA,CL,CLG>CLMU,CM,CMG,CMMU,CMT,XBCP,XBCL, 

2 CDI ,CDMU,CDG,CS ,CT0 ,NR0WS , I HINGE J 

COMPUTE SECTIONAL VORTICITY FOR ALPHA = 1 

CALL SLOADG) CPA, DEL, BTA, CHORD, D, CMU, NJ,IJ,CLG,CGAM,NROWS, IHINGE ) 

COMPUTE SECTIONAL DOWNWASH AT INFINITY FOR ALPHA = 1 
CALL TREFTZ) Y, DELTA, CMU ,CGAM , ALFINF ,NROWS ,ISYMM ) 

MODULATE AND SUM THE FUNDAMENTAL CASE VARIABLES FOR ALPHA = 0 
250 DO 280 K = l,NROWS 
TWIST) K ) = 0.00 
TH) K ) = 0.00 
THETS(K) = 0.00 
HOIK ) = 0.00 
DO 270 N = 1 ,NCASES 

260 TWIST) K) = TWIST) K I + TST ( K ,N ) * FACT) N ) 

TH) K ) = TH) K ) + THETA) K ,N ) * F ACT ( N I 
THETS(K) = THETS(K) + THS) K ,N ) * FACT ( N ) 

HO ( K ♦ = H0(K) + HL(K,N) * FACT ( N ) 

270 CONTINUE 
280 CONTINUE 

DO 320 I = 1 ,NEWMAX 
290 BTA) I ) = 0.00 
EP( I ) = 0.00 
DO 310 N = 1 *NCASES 

300 BTA) I ) = BTA(I) + BETA) I ,N ) * FACT ( N ) 

EP) I l = EP ( I ) + EPS) I ,N ) * FACT) N ) 

310 CONTINUE 
320 CONTINUE 

COMPUTE SECTIONAL COEFFICIENTS FOR ALPHA = 0 
ALPHA = 0.00 

I F ( NOALFA .GT. 0) ALPHA = FACT) 1 ) 

330 CALL SLOAD) ALPHA, IJ,NW,NJ, CHORD, CMU, TH>THET$, TWIST , 

1 XB , DE L ,BT A , EP ,CP0 ,CL0 ,CLG0 ,CLMU0 >CM0 ,CMG0 ,CMMU0 ,CMT0 , 

2 XBCP0 ,XBCL0 ,CDI0 ,CDMU0 ,CDG0 ,CS0 ,CT0 ,NROWS , IHINGE ) 

COMPUTE SECTIONAL VORTICITY FOR ALPHA = 0 
340 CALL SLOADG(CP0, DEL, BTA, CHORD, D, CMU, N J , I J ,CLG0 ,CGAM0 ,NROWS , IHINGE ) 

COMPUTE SECTIONAL DOWNWASH AT INFINITY FOR ALPHA = 0 
350 CALL TREFTZtY, DELTA, CMU, CGAM0 , ALFIN0 ,NROWS , ISYMM ) 

COMPUTE SECTIONAL NONLINEAR CROSS-PRODUCT COEFFICIENTS 
IF) NOALFA .EQ. 0) GO TO 370 
360 CALL SLOADX) CPA,CPG,DEL,EP,CMU,TH,NW,NJ,IJ> 

1 CLGO,CDGX,CDMUX,CSX,CDlX,NROWS ) 

COMPUTE TOTAL LINEAR COEFFICIENTS FOR ALPHA = 0 
370 CALL TLOAOO) CREF ,CCLG >CCLJ ,CCMG ,CCMJ ,CCMT ,CMGMC ,CMJMC .CMTMC , 

1 CLLG ,CLL J , FACT ,CCLG0 ,CCLJ0 ,CCL0 ,CCMG0 ,CCMJ0 ,CCMT0 ,CCM0 , 

2 CMGMCO >CMJMC0 ,CMTMC0 ,CMMC0 ,CXCP0 ,CXCL0 ,CXCPB0 ,CXCLB0 , 

3 CLLGO ,CLLJ0,CLL0 ,NCASES, ISYMM, 

4 CBGR,CBGL,CBJR,CBJL,CBR,CBL,CPBMR,CPBML,CL2R,CL2L, 

5 CBGRO,CBGLO,CBJRO,CBJLO,CBRO,CBLO,CPBMr6,CPBMLO,CL2RO,CL2LO ) 

COMPUTE TOTAL NONLINEAR COEFFICIENTS FOR ALPHA = 0 
380 CALL TLOADX) AREA , CHORD , DELTA ,Y ,CMU ,CDG0 ,CDMU0 ,CS0,CDI0 ,CL0 ,DUMB , 

1 CCDGO ,CCDJ0 ,CCS0 ,CCDI0,CDITZ0 ,DUMB , ALFINO ,CCT0 ,CCJ( 1 ), 

2 DUMMY, CNI0,CCY0,XLE AD, TANLE ,XMC ,NROWS , ISYMM ) 

COMPUTE TOTAL NONLINEAR CROSS-PRODUCT COEFFICIENTS 
I F ( NOALFA .EQ. 0) GO TO 400 

390 CALL TLOADX) AREA, CHORD, DELTA, Y,CMU,CDGX,CDMUX, CSX, CDIX, CL, CLO, 

1 CCDGX,CCDJX,CCSX,CCDIX,CDITZX, ALFINF, ALFINO, DUMMY, CCJ) 1 ), 

2 DUMMY, CNIX,CCYX,XLEAD, TANLE, XMC,NROWS, ISYMM) 

PRINT THE SECTIONAL AND TOTAL COEFFICIENTS 
400 WRITE) 6, 410 ) M 

410 FORMAT) lHl ,47X , 6 ( 4H**** )/48X , 18H* COMPOSITE CASE, 13, 3H */ 

1 48X,6( 4H**** ) ) 

WRITE ( 6 , 420 ) ( N,N = 1 ,10 ) , ( FACT) N ) ,N=1 ,10 ) 

420 FORMAT ( 1H ,48X, 24HFUNDAMENTAL CASE FACTORS/lOX , 9) 4X,2HA( ,11 ,1H ) , 
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* * 

* * 



1 2X)*3X,2HA( ,I2,1H)/10X,10F10.6/) 

WRITE ( 6 > 430 ) 

430 FORMAT ( 1H , 20X , 29H ........... LI FT ,11H 

1 39H PITCHING MOMENT ,10H 

2 20H . . . LIFT CENTER .../ 2X , 7HSECTI0N >5X , 1HY >8X ,4HCLG0 , 6X , 

3 5HCLMU0 , 5X >3HCL0 *4X > 10 H * * > 3X ,4hCNG0 >6X ,5HCMMU0 ,5X , 

4 4HCMT0,6X»3HCM0 >4x,l0H * * ,3X,6HXCP0/C ,4X,6HXCL0/C ) 

I F ( NOALFA .Gt. 6 ) WRITE ( 6 , 440 ) 

440 FORMATUH . shclmu 3HC 1qh * * •3X.4HCMGA* 

2 6X,5HCMMUA,5X,4HCMTA,6X,3HCMA,4X,10H * * ,3X , 6HXCPA/C , 

3 4X >6HXCLA/C ) 

DO 470 K = 1,NR0NS 

WRITE ( 6 , 450 ) K ,Y( K ) ,CLGO( K ) ,CLMUO( K ) ,CLO( K ) ,CMG0( K ) ,CMMUO( K ) , 

1 CMTO( K J »CMO( K ) »XBCPO( K ) >XBCLU( K ) 

‘ ,I5,4X,4f10.6,10H * * ,4F10.6,10H * * ,2F10.6) 

" 0) WRITE ( 6 ^ 460 ) CLG( K ) 2 CLMU( K ) 2 CL ( K ) 



450 



FORMAT ( 1H 
I F ( NOALFA 



.GT. 0) WRITE ( 6 2 460 ) CLG( K ) ,CLMU( K ) ,CL ( K ) , 
CMG( K l 2 CMMU(K >,CMT(K),CM(K ) 2 XBCP(K ),XBCL(K) 
,19X,3F10.6,10H * * ,4F10.6,10H * 



> 2F10 . 6 ) 



CCMJO ,CCMT0 2 CCM0 ,CXCPO ,CXCLO 
* * >4(10H 



460 FORMAT ( 1H 
470 CONTINUE 

WRITE ( 6 * 480 ) CCLGO , CCLJO ,CCLO ,CCMGO 
480 FORMAT ( 1H , 9X,4( 10H )>10H ~ ~ ,4.iun 

1 10H * * ,2(10H )/13X,5HT0TAL>2X,3F10.6, 

2 10H * * ,4F10.6,10H (APEX) , 2F10.6) 

IF ( NOALFA .GT. 0) WRITE(6, 490 ) CCLG(l) ,CCLJ( 1 ) ,CCL( 1 ) > 

1 CCMG( 1 ) >CCMJ( 1 ) >CCMT ( 1 ) ,CCM( 1 ) ,CXCP( 1 ) ,CXCL( 1 ) 

490 FORMAT ( 1H ,19X,3F10.6, 

1 10H * * 2 4F10.6 2 10H (APEX) , 2F10.6) 

WRITE ( 6 , 500 ) CMGMCO,CMJMCO,CMTMCO,CMMCO,CXCPBO,CXCLBO 
500 FORMAT ( lH ,49X, 

1 10H * * ,4F10 . 6 * 10H ( XMC ) , 2F10.6) 

IF ( NOALFA .GT. 0) WRlTE(6> 510 ) 

1 CMGMC( 1 ) >CMJMC( 1 ) ,CMTMC( 1 ) >CMMC( 1 ),CXCPB( 1 ) ,CXCLB( 1 ) 

510 FORMAT ( 1H >49X,10H * * ,4F10.6,l0H (XMC) , 2F10.6) 

WRITE ( 6 2 520 ' 

520 * 




. .^r. ui nrcx i c i o , i 

530 FORMAT ( 1H , 27X ,4HCDGX , 7X ? SHCDMUX , 6X.3HCSX ,8X , 3HCDX/ 

1 28X>5HCDGA2>6X,6HCDMUA2,5X,4HCSA2,7X,4HCDA2,7X,bHGAMMA2, 

2 5X,6HALFINAJ 

DO 560 K = 1,NR0WS 

WRITE ( 6 ? 540 ) K 2 Y< K ) ,CDGO( K ) >CDMUO( K ) ,CSO( K ) ,CDIO( K ) , 

1 CGAMO(K) ,ALFINO(K ) %CTO( K ) ,CMU( K ) 

540 FORMAT ( 1H , 6X,I4 ,4X , Flo . 6 >8F11 . 7 ) 

I F( NOALFA .GT. 0) WRITE! 6, 550 ) 

1 CDGX(K ),CDMUX(K ),CSX( K ) ,CDIX( K ) ,CDG( K ) ,CDMU( K ) ,CS( K ) , 

2 CDI ( K ) ,CGAM( K ) , ALFINF ( K ) 

550 FORMAT ( 1H , 24X ,4F 11 . 7/25X , 6F11 . 7 ) 

560 CONTINUE 

WRITE ( 6 , 570 ) CCDGO ,CCD JO ,CCSO ,CCDI0 2 CDITZ0 ,CCTO ,CCJ( 1 ) 

570 FORMAT ( lH ,24X,8(11H 1/18X >5HT0TAL , 2X ,4F11 . 7 , 11X>3F11 . 7 ) 

IF( NOALFA .GT. 0) NRITE(6, 5S0 ) CCDGX, 

1 CCDJX,CCSX,CCDIX»CDITZX,CCDG( 1 ) >CCDJ( 1 ) ,CCS( 1 ) >CCDI( 1 ) ,CDITZ( 1 ) 
580 FORMAT ( 1H , 24X ,4F 11 . 7 , 11X , Fll . 7/25X ,4F 11 . 7 , 11X , Fll . 7 ) 

PRINT A TABLE OF ALL TOTAL COEFFICIENTS FOR ALPHA = 0 , ALPHA ,ALPHA**2 

WRITE ( 6 » 590 ) 

590 FORMAT ( lHl ,41X 2 9( 4H**** )/42X 2 20H* TOTAL AERODYNAMIC, 

1 16H COEFFICIENTS */42X , 9( 4H**** )// 

2 42X, 7HALPHA = 0 > 8X, 5HALPHA,10X, 8HALPHA**2 ) 

I F( NOALFA .GT. 0 ) GO TO 630 

600 FORMAT ( 1H , 25X 2 A8 , F15 . 7 ) 

WRITE ( 6 , 600 )COEFF( 1 ) , CCLGO ,COE F F ( 2), CCLJO ,COE FF( 3 ) ,CCLO , 

1 COE FF( 4 ),CCDGO,COEFF( 5), CCDJO ,COEFF ( b ) ,CCSO , 

2 COE FF ( 7 ) >CCDIO > COE FF ( 8 ) ,CDITZO >COE FF ( 9 ) ,CCJ ( 1 ) , 

3 COE F F ( 10 ) >CCMGO ,COE F F ( 11 ), CCMJO,COEFF( 12 ) ,CCMTO, 

4 COE FF( 13 ) > CCMO >COEFF( 14 ) > CXCPO ,COFFF < 15 ) ,CXCLO, 

5 COE F F ( 16 ) ,CXCPB,COEFF( 17) , CXCLB ,COE FF ( 18 ) ,CMGMCO , 

6 COEFFI 19 ) ,CMJMCO >COE FF( 20 ) ,CMTMCO ,COE FF( 21 ),CMMCO, 

7 COEFF( 22 ) > CLLGO ,COE FF( 23 ) , CLLJO ,COE F F( 24 ) ,CLLO , 

8 COE FF ( 25 ),CNJf 1 ) , COE F F ( 26 ) , CNIO,COEFF( 27),CCY0 2 

9 COE F F ( 23 ) , CBGRO ,COEFF( 29 ) , CBGLO >COEFF ( 30 ) ,CBJRO , 

0 COE FF ( 31 ) , CBJLO , COEFF( 32 ) , CBRO ,COEFF( 33 ) ,CBLO , 

1 COEFF( 34 ) >CPBMRO >COE FF ( 35 ) ,CPBMLO 
RETURN 

610 FORMAT ( 1H , 25X , A8 ,3F15 . 6 ) 

620 FORMAT ( 1H > 25X,A8 , IX ,3F15 . 7 ) 

630 WRITE ( 6 , 6l0 )COEFF( 1), CCLGO ,CCLG( 1 ) 

. )COE FF ( * ' 



WRITE ( 6 
WRITE ( 6 > 
WRITE ( 6 > 
WRITE ( 6, 
WRITE ( 6 , 
WRITE ( 6 > 
WRITE ( 6 , 
WRITE ( 6 , 
WRITE (6, 
WRITE ( 6, 
WRITE ( 6, 
WRITE ( 6 > 
WRITE ( 6 > 
WRITE ( 6 > 
WRITE ( 6 , 
WRITE (6, 
WRITE ( 6 , 
WRITE ( 6 , 
WRITE (6, 



610 

610 

620 

620 

620 

620 

620 

620 

610 

610 

610 

610 

610 

610 

610 

610 

610 

610 

610 



2 ) i 

3 ) , 

4) , 

5) , 

6 ) , 

7 ) , 

8 ) , 

9 ) , 



)COE FF( 
JCOEFf ( 
)COEFF( 

)COE F F ( 

)COE FF ( 

)COE FF( 

)COE FF( 
)COEFF(10)> 
)COE FF ( 11 ), 
)COEFF( 12), 
)COE F F( 13 ) , 
)COEFF( 14), 
)COEFF ( 15 ) , 
)COEFF( 16), 
)COE FF( 17), 
)COE F F ( 18), 
)COE FF ( 19 ), 
)COEFF( 20), 



CCLJO, CCLJ( 1 ) 

CCLO ,CCL( 1 ) 

CCDGO, CCDGX, CCDG( 1) 
CCDJO ,CCD JX ,CCDJ ( 1 ) 
CCSO ,CCSX ,CCS(1) 
CCDIO ,CCDIX ,CCDI ( 1 ) 
CDITZO ,CDITZX ,CDITZ( 1 ) 
CCJ( 1) 

CCMGO ,CCMG( 1 ) 

CCMJO ,CCMJ( 1 ) 

CCMT 0 ,CCMT ( 1 ) 

CCMO ,CCM( 1 ) 
CXCPO,CXCP( 1 ) 

CXCLO ,CXCL ( 1 ) 

CXCPBO ,CXCPB( 1 ) 

CXCLBO ,CXCLB( 1 ) 

CMGMCO ,CMGMC( 1) 

CM JMC 0 , CMJMC ( 1 ) 

CMTMCO ,CMTMC( 1 ) 
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WRITE ( 
WRITE 1 
WRITE ( 
WRITE ( 
WRITE ( 
WRITE ( 
WRITE ( 
WRITE ( 
WRITE ( 
WRITE ( 
WRITE ( 
WRITE ( 
WRITE 1 
WRITE 1 
WRITE 1 



6, 610 
6, 610 
6, elO 
6, 610 
6 , 610 
6, 610 
6, 610 
6, 610 
6, 610 
6, 610 
6 , 610 
6, 610 
6, 610 
6, 610 
6, 610 



)COE FF ( 
)COEFF( 
)COEFF 1 
)CCEFF( 
JCOE F F ( 
)COEFF( 
)COEFF ( 
)COEFF( 
)COEFF ( 
)C0E F F 1 
)COEFF( 
1COEFF 1 
)COEFF 1 
)COEFF 1 
)COEFF( 



21 ), 
22 ), 
21 ), 
24 ) , 
25), 
26 ), 
27), 
28 ), 

29) , 

30) , 

31 ), 

32 ), 

33 ), 

34 ), 
35), 



CMMCO , CMMCl 1) 
CLLGO ,CLLGt 1 ) 
CLLJO »CLLJ( 1 ) 
CLL0,CLLl 1 ) 

CNJ1 1 ) 

CNI0,CNIX,CNI1 1 ) 
CCYO>CCYX,CCY( 1 ) 
CBCRO , CBGR(l) 
CB3L0 , 

CBJRO , 

CBJLO , 

CBRO , 

CBLO 



CBGL< 1 ) 
CBJRl 1 ) 
CBJL 1 1 ) 
CBR( 1 ) 
LDLU » CBL( 1 ) 

CPBMRO, CPBMR(l) 
CPBMLO, CPEML11) 



COMPUTE AND PRINT A TABLE OF THE VARIATION OF THE TOTAL COEFFICIENTS 
WITH ANGLE OF ATTACK 

640 CALL TABLE! CCLO,CCL( 1 ) , CMMCO ,CMMC( 1 ) ,CLLO,CLL( 1 ) ,CDITZO ,CDITZX , 

1 CDITZ ( 1 ) ,CCJ < 1 ) ,CNI 0 >CNIX,CNI( 1 ) ,CNJ( 1 ) , 

2 CCYO ,CCYX,CCY( 1 ),M) 

RETURN 

END 

BLOCK DATA 

CHARACTERS C0EFF(35) 

COMMON/ LOAD 6/COE FF 



DATA COEFF/ 



END 

SUBROUTINE 



CCLG ' , 
CCS 1 , 
CCMJ ' , 
CXCPB ' , 
** CCMMC ' , 
* CNIMC 1 , 
CBGR ' , 
CBR ' , 



CCLJ ' , ' ** CCL ' , 
CCD* , '** CDITZ' , 



CCMT . 
CXCLB ' , 
CLLG ' , 
CCY ' , 
CBGL ' , 
CBL ' , 



CCM ' . 
CCMGMC ' : 
CLLJ 1 ] 

CBJR' 
CPM3R ' : 



CCDG ' j 
* CC J ' , 

CXCP' , 
CCMJMC ' 3 
CLL ' 3 

CBJL' , 
CPMBL ' / 



CCDJ 1 
CCMG ' 
CXCL 1 
CCMTMC ' 
CNJ 1 



EXPLE ( LCASE , CPI, CPU, DEL ,XBB ,CPEXP ) 



THIS SUBROUTINE COMPUTES THE CP VALUE OF A LEADING EDGE EVD 
AT 5 INTERMEDIATE POINTS ON THE ELEMENT 



DIMENSION XBB(5),CPEXP(5,10) 
,5 



10 DN =0.20 
DO 40 N = 1, 

20 X = DN * N 

XBB(N) = X * DEL 

30 CPEXP! N, LCASE ) = 0 . 666666*CPI*< 1 . 0/SQRT( X ) -X ) + CPI1*X 
40 CONTINUE 
RETURN 
END 

SUBROUTINE EXPH1! LCASE ,CPI ,CPI 1 ,DEL ,BTA ,C ,XB ,XBB ,CPEXP ) 

THIS SUBROUTINE COMPUTES THE CP VALUE OF THE FORWARD HALF OF A HINGE 
EVD AT 5 INTERMEDIATE POINTS ON THE ELEMENT 

DIMENSION XBB! 5), CPE XP (5, 10) 

DN = 0.20 
DO 30 N = 1,5 

10 X = XB - DEL + (N-1)*DN*DEL 
DX = X - XB 
XBB(N) = X 

20 CPEXPl N, LCASE ) = -1 . 273240*BTA/57 . 295779*( AL0G1 -C*DX ) 

1 + ALOG(C*DEL)*DX/DEL) +(CPI + ( CPI-CPI1 )*DX/DEL ) 

30 CONTIf>)UE 
RETURN 
END 

SUBROUTINE EXPH21 LCASE ,CPI ,CPI1 ,DEL ,BTA ,C ,X3,XBB ,CPEXP ) 

THIS SUBROUTINE COMPUTES THE CP VALUE OF THE REAR HALF OF A HINGE 
EVD AT 5 INTERMEDIATE POINTS ON THE ELEMENT 

DIMENSION XBB( 5 ), CPEXPl 5,10 ) 

DN = 0.20 
DO 30 N = 1,5 
10 DX = N*DN*DEL 
X - XB 4 DX 
XBB1N) = X 

20 CPEXP1N, LCASE ) = -1 . 273240*BT A/57 . 295779*1 AL0G1 C*DX ) 

1 - ALOGl C*DEL )*DX/DEL ) 4 (CPI - (CPI-CPI1 )^DX/DE L ) 

30 CONTINUE 
RETURN 
END 

SUBROUTINE SLOAD 1 ALPHA ,1 J ,NW ,NJ , CHORD ,CMU , THETA , THETAS ,TST , 

1 XB,DEL,BETA,EPS,CP,CL,CLG,CLMU 2 CM,CMG,CMMU,CMT,XBCP,XBCL, 

2 CDI,CDMU,CDG,CS,CT,NROWS,IHINGE ) 

THIS SUBROUTINE COMPUTES THE SPANWISE VARIATION OF LIFT, PITCHING 
MOMENT, AND INDUCED DRAG FOR EITHER A FUNDAMENTAL OR A COMPOSITE CASE 

DIMENSION I J( 40 ) ,NW( 40 ) ,NJ 1 40 ) 

DIMENSION CHORD! 40 ) ,CMU( 40 ) , THETA! 40 ), THETAS! 40 ) ,TST( 40 ) 

DIMENSION CPI 600 ) ,XB( 600 ) ,DEL( 600 ) ,BETA( 600 ) ,EPS( 600 ) 

DIMENSION CLG1 40 ) ,CLMU( 40 ) ,CL( 40 ) ,CMG( 40 ) ,CMMU( 40 ) ,CMT( 40 ),CM( 40 ) , 
1 XBCP1 40 ) ,XBCL( 40 ) ,CDG( 40 ) ,CDMU( 40 ),CS(40 ),CDI(40 ),CT(40) 

INTEGRATE THE CHORDWISE PRESSURES FOR EACH SPANWISE SECTION 
10 I = 0 

IF1IHINGE .GT. 1) IHINGE = 1 
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DO 150 K = l,NROHS 

LEADING EDGE CONTRIBUTIONS 
1=1 + 1 

CLI = DEKI) * (CPI I )+0.50*CP( 1 + 1) ) 

CLG( K ) — CLI 

CMG(K) = -DEL(I)**2 * ( 0 . 666666 7*CP( I )+CP( 1 + 1 ) ) / 
CDGIK) = CLI * EPS( I )/57. 295779 
CS( K ) = 0.1745329 * DEL( I ) * CP(I)**2 



20 



3.00 



30 



BCF - 0.00 
NWK = NWI K ) 

DO 100 L = 2, NWK 
1 = 1 + 1 
CPI - CP( I ) 

I F ( L .EQ. NWK) GO TO 40 
CPU = CPII+1) 

GO TO 50 

DEFINE TRAILING EDGE CP VALUE 
40 CPU = 0.0 

IFKNJIK) .EQ. 0) .OR. (CMUIK) . LT . 0.0001)) GO TO 50 
IJK = I J( K ) 

CPU = CP(IJK) 

REGULAR EVD CONTRIBUTIONS 

50 CLI = 0.50 * DELHI * ICPI+CPI1) 

CLG(K) = CLGIK ) + CLI 

CMG(K) = CMGIK) - CLI*XB(I) - ( CPI + 2 . 0*CPI1 )*DEL( I )**2/6 . 00 
60 CDG(K) = CDG(K) + CLI * EPS( I )/57 . 295779 
BCF = BCF + BETA! I) * (1.0-XBII)) 

HINGE CONTRIBUTIONS 

I F C IHINGE .EQ. 0) GO TO 100 
B2 = BETA( 1 + 1 ) 

I F ( L .LT. NWK) GO TO 70 
B2 = 0.00 
IJK = I J( K ) 

IF(CMUIK) .GT. 0.0001) B2 = BETA(IJK) 

70 I F ( ( ASSI BETA( I ) ) . LT . 0 . 0001 ). AND .( ABSI B2 ) 

CLI = 0.00 
CMI =0.00 

DL = ALOGIDEL(I) * CHORD IK)) 

CON = 0.6366198 * DEL(I) / 57.295779 
IF( ABS( BETA( I ) ) .LT. 0.0001) GO TO 80 
CLI = CON * BETA(I) * (2.00 - DL) 

CMI = BETA(I) * ( 0.50-DL/3.00 ) 

80 I F ( ABS( B2 ) . LT . 0.0001) GO TO 90 
CLI = CLI + CON * B2 * (2.00 - DL) 

CMI = CMI + 2.00 * B2 * (0.7500 
90 CLGIK) = CLGIK) + CLI 

CMGIK) = CMGIK) - CON 

CDGIK) = CDGIK) + CLI 

CONTINUE 



.LT. 0.0001) ) GO TO 100 



DL/3.00 ) 



* DELI I) * CMI - CLI * XB( I ) 

* EPS( I 1/57.295779 



100 

COMPUTE THE SECTIONAL COEFFICIENTS 
110 CLMUIK) = CMUiK) * THETA(K 1/57.295779 
CLI K I = CLGIK) + CLMUIK) 

120 CMMU(K) = -CMUIK) * THETA( K )/57 . 295779 

CMT(K) = CM’J(K) * ( ALPHA+TSTIK )-THETAS(K)+BCF)/57. 295779 
CMI K ) = CMGIK) + CMMUIK) + CMT(K) 

XBCP(K) = 0.00 
XBCLIK) = 0.00 

130 IFICLGIK) .NE. 0.00) XBCPIK) = -CMG(K) / CLGIK) 

IF I CLI K ) .NE. 0.00) XBCLIK) = - 1 CMGI K ) +CMMUI K ) ) / CL(K) 
140 CDMUIK) = CMUIK) * ( THETA! K )/57. 295779 )**2 / 2.00 
CDI I K ) = CDGIK) + CDMUIK) - CSIK) 

CTIKl = CMUIK) - CDI ( K ) 

150 CONTINUE 
160 RETURN 
END 

SUBROUTINE SLOADXI CPA,CP0 ,DEL ,EPS,CMU>TH >NW,NJ ,1 J , 

1 CLGO,CDGX,CDMUX,CSX,CDIX,NROW$) 



THIS SUBROUTINE CALCULATES THE SECTIONAL CROSS-PRODUCT VALUES 
OF THE NONLINEAR DRAG COEFFICIENTS 

DIMENSION CPA( 600 ) ,CP0( 600 ),DEL( 600 ), EPS! 600 ) 

DIMENSION CMUI 40 J ,T H( 40 ) >NW( 40 ) ,NJ( 40 ) ,IJ< 40 ) 

DIMENSION CLGOI 40 ) ,CDGX( 40 ) ,CDMUX( 40 ) ,CSX( 40 ) ,CDIX( 40 ) 

1 = 0 

DO 70 K = UNROWS 
LEADING EDGE EVD CONTRIBUTION 
1 = 1 + 1 

10 CDGX(K) = DEL(I)*(CPA(I)+0.50*CPA(I+l))*EPS(I)/57. 295779 
20 CSX(K) = 0.3490658 * DELI I ) * (CPOII) * CPAII)) 

NWK = NWIK) 

DO 50 L = 2, NWK 
1=1 + 1 

30 CPU = CPAII + l) 

DEFINE TRAILING EDGE CP VALUE 
IFIL .LT. NWK) GO TO 40 
CPU = 0.0 

IFKNJIK) .EQ. 0) .OR. (CMUIK) . LT . 0.0001)) GO TO 40 
IJK = IJIK) 

CPU = CPAIIJK) 

REGULAR EVD CONTRIBUTION 

40 CDGXIK) = CDGXIK) + 0.50*DEL( I )*( CPAI I )+CPIl )*EPS( I )/57. 295779 
50 CONTINUE 

COMPUTE THE REMAINING SECTIONAL COEFFICIENTS 
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60 CDGX(K) = CDGX(K) + CLG0( K )/57 . 295779 
CDMUXIK) = CMU(K) * TH( K )/57 . 295779**2 
CDIX(K) = CDGX(K) + CDMUX(K) - CSX(K) 

70 CONTINUE 
RETURN 
END 

SUBROUTINE SLOADG* CP , DEL , BETA , CHORD ,D >CMU ,NJ ,IJ ,CLG ,CGAM , 

1 NROWS,IHINGE ) 

THIS SUBROUTINE COMPUTES THE SPANWISE VARIATION OF TOTAL VORTICITY 
ON THE WING-JET SYSTEM 

DIMENSION CP< 600 KDEL* 600 ) ,BETA( 600 ) 

DIMENSION CHORD* 9*5 NDI 40 ) ,CMU( 40 ) ,NJ( 90 ) , I J C 40 ) 

DIMENSION CLG*90),CGAM*90) 

DO 60 K = l,NROWS 

COMPUTE THE SECTIONAL JET VORTICITY > INTEDRATED FROM T.E. TO INFINITY 
10 CGAM(K) =0.00 

I F ( CMU( K ) .LT. 0.0001) GO TO 50 
II = I J( K ) 

HINGE EVD CONTRIBUTION 

I F ( IHINGE .EQ. 0 ) GO TO 20 

IF(BETA(II) .NE. 0.00) CGAM(K) = 0.6366198 * DEL(II) * 

1 BETAdI 1/57.295779 * * 2 . 00-ALOG( CHORD ( K )*DEL* II ))) 

REGULAR EVD CONTRIBUTION 
20 NJK1 = NJ*K) - 1 
II = II - 1 
DO 90 L = 1,NJK1 
II = II + 1 

30 CGAM(K) = CGAM(K) + 0.50 * DELdI ) * ( CP( II )+CP(II + l ) ) 

90 CONTINUE 

FAR-JET EVD CONTRIBUTION 
II = II + 1 

CGAM(K) = CGAM(K) + D(K) / CHORD(K) * CPdl ) 

SUM UP THE WING AND JET CONTRIBUTIONS 
50 CGAM(K) = 0.50 * CHORD* K ) * * CGAM* K )+CLG( K ) ) 
bO CONTINUE 
RETURN 
END 

SUBROUTINE TLOAD( ALPHA , AREA *CREF*XMC,Y, DELTA ,C, HO ,XB ,XLEAD,BETA , 

1 CLG >CLMU >CMG *CMMU>CMT *CMU*CCLG »uCLJ *CCL *CCMG >CCMJ »CCMT >CCM> 

2 CMGMC,CMJMC>CMTMC.CMMC,CXCP ,CXCL ,CXCPB ,CXCLB ,CCJ ,CLLG »CLLJ > 

3 CLLdTYPE ,IW,NWU4ROWS,ISYMM, 

9 CBGR,CBGL,CBJR,CBJL,CBR,CBL,CPBMR,CPBML,CL2R»CL2L) 

THIS SUBROUTINE CALCULATES ALL OF THE TOTAL LOADING PARAMETERS 
FOR A FUNDAMENTAL CASE 

DIMENSION Y( 90 )> DELTA* 90 ) ,C< 90 1 ,H0* 90 ) >XLEAD* 90 ) ,IW( 90 ) ,NW( 90 ) 
DIMENSION XB* 600 ),BETA( 600 ) ,ITYPE( 600 ) 

DIMENSION CLG( 90 ) ,CLMU( 90 1 ,CMG( 90 ) ,CMMU( 90 ) ,CMT( 90 ) ,CMU( 90 ) 

INITIALIZE THE TOTAL COEFFICIENTS 
10 CCLG = 0.00 
CCLJ = 0.00 
CCMG =0.00 
CCMJ =0.00 
CCMT =0.00 
CXCP =0.00 
CXCL =0.00 
CXCPB =0.00 
CXCLB =0.00 
CCJ = 0.00 

CLLG = 0.00 

CLLJ = 0.00 

CLL = 0.00 

CBGR =0.00 
CBGL =0.00 
CBJR =0.00 
CBJL =0.00 
CBR =0.00 
CBL = 0.00 
CL2R = 0.00 

CL2L = 0.00 

CPBMR =0.00 
CPBML =0.00 

INTEGRATE THE SECTIONAL VALUES OVER THE SPAN 
DO 100 K = 1 >NRONS 
20 CDEL = C ( K ) * DELTA* K ) 

IF * ISYMM .LT. 0) GO TO 80 

LIFT COEFFICIENTS 

CCLG = CCLG + CDEL * CLG* K ) 

30 CCLJ = CCLJ + CDEL * CLMU(K) 

PITCHING MOMENT COEFFICIENTS 
CCDEL = CDEL * C(K ) 

XLB = XLEAD(K) / C*K) 

COMPUTE LEADING EDGE HEIGHT ABOVE WING APEX 
90 I = IW*K) - 1 
NWK = NW( K ) 

XDS = 0.00 
DO 60 L = 1,NWK 
1 = 1 + 1 

IF* ITYPE * I ) - 91) 60 * 50 » 70 
50 XDS = XDS + XB( I ) * BETA* I 1/57 . 295779 
60 CONTINUE 
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70 HLB = HOIK) - 
CCMG = CCMG + 
CCMJ = CCMJ + 
CCMT = CCMT + 
80 CCJ = CCJ + 



XLB * ALPHA/57.295779 - XDS 
CCDEL * (CMGIK) - CLGIK )*XLB) 
CCDEL * I CMMUI K ) - CLMU(K)*XLB) 
CCDEL * (CMTIK) - CMJIK)*HLB) 
CDEL * CMLH K ) 



ROLLING MOMENT COEFFICIENTS AND ROOT BENDING MOMENTS 
CDELY = CDEL * YIK ) 

90 IF ( ISYMM .EQ. 0) GO TO 95 
CLLG = CLLG + CDELY * CLG(K) 

• + CDELY * CLMU(K) 

0.0 ) ^0 TO 96 
+ CDELi * CLGIK) 

+ CDEL'i * CLMU(K) 

+ CDEL * (CLGIK )+CLMU!K ) ) 



CLLJ = CLLJ 
95 IFIY(K) .LT 
CBGR = CBGR 
CBJR = CBJR 
CL2R = CL2R 
GO TO 100 
CBGL = CBGL 
CBJL = CBJL 
CL2L = CL2L 
CONTINUE 



96 



100 



CDELY * CLGIK) 

CDELY * CLMUIK) 

CDEL * I CLGI K J+CLMUI K ) ) 



COMPUTE THE FINAL VALUES OF ALL THE TOTAL COEFFICIENTS 
FACTOR = 2.00 / AREA 

■ " 1 ) FACTOR = 9.00 / AREA 

* CCLG 

FACTOR * CCLJ 

CCLJ 

* CCJ 



IF( ISYMM .LT. 
110 CCLG = FACTOR 
CCLJ = 

CCL = CCLG + 
120 CCJ = FACTOR 



ISO FACTOR = FACTOR / CREF 
CCMG = FACTOR * CCMG 
CCMJ = FACTOR 
FACTOR 
CCMG + 



CCMT 

CCM 



* CCMJ 

* CCMT 
CCMJ + CCMT 

IF! ISYMM .LT. 0 ) GO TO 190 
IF! CCLG .NE. 0.00) CXCP = - CCMG / CCLG 
I F I CCL .NE. 0.00) CXCL = -ICCMG+CCMJ) / CCL 
CXCPB = CXCP * CREF 

CXCLB = CXCL * CREF 

190 FACTOR = XMC / CREF 

IFI ISYMM .LT. 0) FACTOR =0.00 
CMGMC = CCMG + CCLG * FACTOR 

CMJMC = CCMJ + CCLJ * FACTOR 

CMTMC = CCMT - CCJ * FACTOR * ALPHA/57.295779 

CMMC = CMGMC + CMJMC + CMTMC 
150 IF( ISYMM .EQ. 0 ) GO TO 160 
FACTOR = -1.00 / AREA 

IFI ISYMM .LT. 0) FACTOR = -2.00 / AREA 
CLLG = FACTOR * CLLG 
CLLJ = FACTOR * CLLJ 
CLL = CLLG + CLLJ 
160 FACTOR = 9.0 / AREA 
FACTOR * CBGR 

* CBJR 

* CL2R 

0) GO TO 170 
0 ) GO TO 180 



CBGR 
CBJR = FACTOR 



CL2R = FACTOR 
IFI ISYMM .GT. 
IFI ISYMM .LT. 
CBGL = CBGR 
CBJL = CBJR 
CL2L = CL2R 
GO TO 190 



170 


CBGL 


= FACTOR 


* 


CBGL 




CBJL 


= FACTOR 


* 


CBJL 




CL2L 


= FACTOR 


* 


CL2L 




GO TO 


190 






180 


CBGL 


= -CBGR 








CBJL 


= -CBJR 








CL2L 


= -CL2R 






190 


CBR = 


CBGR + CBJR 



CBL = CBGL + CBJL 
IFICL2R .NE. 0.0) CPBMR = CBR/CL2R 
IFICL2L .NE. 0.0) CPBML = CBL/CL2L 
RETURN 
END 

SUBROUTINE TLOADXI AREA , CHORD , DELTA ,Y ,CMU .CDG.CDMU ,CS,CDI , CL ,CL0 , 

1 CCDG >CCDJ .CCS ,CCDI >CDITZ, ALFINF ,ALFIN0 ,CCT ,CCJ , 

2 CNJ ,CNI >CCY ,XLE AD ,TANLE ,XMC ,NROWS , ISYMM ) 

THIS SUBROUTINE CALCULATES THE NONLINEAR TOTAL LOADING COEFFICIENTS 
FOR ALPHA = 0 BY SPANNISE INTEGRATION OF THE NONLINEAR 
SECTIONAL COEFFICIENTS 

DIMENSION CHORD! 90 ), DELTA! 90 ) ,Y( 90 ) ,CMU( 90 ) *XLEAD< 90 ) >TANLEI 90 ) 
DIMENSION CDGI 90 ) ,CDMUI 90 ) >C$( 90 ) ,CDI I 90 ) ,CLI 90 ) ,CL0I 90 ) 

DIMENSION ALFINFI 90 ) > ALFINOI 90 ) 

INITIALIZE THE COEFFICIENTS 
10 CCDG =0.00 
CCDJ = 0.00 
CCS =0.00 
CDITZ = 0.00 
CNJ =0.00 
CNI =0.00 
CCY = 0.00 

INTEGRATE THE SECTIONAL VALUES OVER THE SPAN 
DO 90 K = l ? NROWS 
20 CDEL = CHORD! K) * DELTA! K) 

CCDG = CCDG + CDEL * CDGI K ) 

CCDJ = CCDJ + CDEL * CDMUIK) 

!n rrc - rre + rflFI * I 

CDITZ = CDITZ + CDEL * ( CL( K )*ALFIN0< K ) + CL0< K )*ALFINF( K ) ) 
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I F ( ISYMM .LT. 1 ) GO TO 40 

CNJ = CNJ + CDEL * Y( K ) * CMU(K) 

CNI = CNI + CDEL * ( Y( K )*CDI ( K ) - CS( K )*TANLE ( K )*( XLE AD( K )-XMC ) ) 

CCY = CCY + CDEL * CSIK) * TANLE(K) 

40 CONTINUE 

COMPUTE THE FINAL VALUES OF THE TOTAL COEFFICIENTS 
FACTOR = 2.00 / AREA 

IF! ISYMM .LT. 1) FACTOR = 4.00 / AREA 
50 CCDG = FACTOR * CCDG 
CCDJ = FACTOR * CCDJ 
CCS = FACTOR * CCS 
CDIT2 = FACTOR * CDIT2 / 2.00 
CCDI = CCDG + CCDJ - CCS 
CCT = CCJ - CCDI 
60 IF! ISYMM .LT. 1) RETURN 
FACTOR = 1.00 / AREA 
CNJ = -FACTOR * CNJ 
CNI = FACTOR * CNI 
CCY = FACTOR * CCY 
70 RETURN 
END 

SUBROUTINE TLOADO( CREF ? CCLG 2 CCLJ 2 CCMG ,CCMJ ,CCMT 2 CMGMC 2 CMJMC 2 CMTMC , 

1 CLLG ,CLLJ ,FACT ,CCLG0 , CCLJO >CCL0 2 CCMG6 2 CCMj6 ,CCMT0 ; CCN0 > 

2 cmgmCo 2 cmjmco .cmtmco 2 cmmco>cxcp6>cxcl6>cxcpbo, cxcLbo, 

3 CLLG0>CLLJ0 >CLL0 jNCASES »ISYMM ♦ 

4 CBGR 2 CBGL 2 CBJR,CBJL 2 CBR>CBL 2 CPBMR>CPBML 2 CL2R,CL2L, 

5 CBGRO ,CBGL0 , CBJRO , CBJLO , CBRO >CBL0 , CPBMRO ,CPBML0 ,CL2R0 ,CL2L0 ) 

THIS SUBROUTINE CALCULATES THE LINEAR TOTAL LOADING COEFFICIENTS 
FOR ALPHA = 0. LINEAR QUANTITIES ARE MODULATED AND SUMMED 
ACCORDING TO THE COMPOSITE CASE REQUIREMENTS. 

DIMENSION CCLG! 10 ) -CCLJ! 10 KCCMG! 10 )>CCMJ( 10 ) 2 CCMT( 10 ) 2 
1 CMGMC ( 10 UCMJMC! l6 UCMTMCl 10 ) ,CLLG( 10 ),CLLJt 10 ) .FACT! 10 ) 

DIMENSION CBGR! 10 ) .CBGLl 10 ) 2 CBJR< 10 ) 2 CBJL( 10 ) 2 CBR! 10 ) >CBL( 10 )> 

1 CPBMR! 10 J >CPBML ( 10 ),CL2R( l6 ),CL2L( 10 ) 

INITIALI2E THE COEFFICIENTS 



10 CCLGO = 


0.00 


CCLJO = 


0.00 


CCMGO = 


0.00 


CCMJO = 


0.00 


CCMTO = 


0.00 


CMGMCO 


= 0.00 


CMJMCO 


= 0.00 


CMTMCO 


= 0.00 


CLLGO = 


0.00 


CLLJO = 


0.00 


CXCPO = 


0.00 


CXCLO = 


0.00 


CXCPBO 


= 0.00 


CXCLBO 


= 0.00 


CBGRO = 


0.00 


CBGLO = 


0.00 


CBJRO = 


0.00 


CBJLO = 


0.00 


CBRO = 


0.00 


CBLO = 


0.00 


CL2R0 = 


0.00 


CL2L0 = 


0.00 


CPBMRO 


= 0.00 


CPBMLO 


= 0.00 



MODULATE AND SUM THE TOTAL COEFFICIENTS 



DO 40 N 
20 CCLGO = 
CCLJO = 
CCMGO = 
CCMJO = 

ccmto 



1 >NCASES 
CCLGO + CCLG(N) 



CCLJO 

CCMGO 

CCMJO 

CCMTO 



+ 
+ 

30 CMGMC 0 ="CMSMC0 
CMJMCO = CMJMCO 
CMTMCO = CMTMCO 
CLLGO = CLLGO + 
+ 
+ 
+ 
+ 
+ 
+ 
+ 



CCL J ( N ) 
CCMGlN ) 
CCMJ(N) 
CCMT ! N ) 



FACT ( N ) 
FACT! N ) 
FACT! N ) 
FACT ( N ) 
FACT(N t 



+ CMGMC (N) * FACT ( N ) 
+ CMJMCIN) * FACT ( N ) 
+ CMTMC(N) * FACT(N) 
CLLG! N ) * FACT ( N ) 



CLLJO = CLLJO + CLLJ(N) * FACT l N ) 

CBGRO = CBGRO + CBGR(N) * FACT ( N ) 

CBGLO = CBGLO + CBGL(N) * FACT ( N ) 

CBJRO = CBJRO + CBJR(N) * FACT ( N ) 

CBJLO = CBJLO + CBJLl N ) * FACT ( N ) 

CL2R0 = CL2R0 + CL2R(N) * FACT ( N ) 

CL2L0 = CL2L0 + CL2LIN) * FACT ( N ) 

40 CONTINUE 

DEFINE THE REMAINING TOTAL COEFFICIENTS 
CCLO = CCLGO + CCLJO 

+ CCMJO + CCMTO 
+ CBJRO 
+ CBJLO 

0.0) CPBMRO = CBRO / CL2R0 
0.0 ) CPBMLO = CBLO / CL2L0 
0) GO TO 60 
0.00) CXCPO 

0 



50 CCMO = CCMGO 
CBRO = CBGRO 
CBLO = CBGLO 
IF( CL2R0 .NE. 

I F ( CL2L0 .NE. 

IF! ISYMM .LT. 

I F ( CCLGO .NE. 

I F ( CCLO .NE. 

CXCPBO = CXCPO 
CXCLBO = CXCLO 
60 CMMCO = CMGMCO 
CLLO = CLLGO + 

70 RETURN 
END 

SUBROUTINE TRE FT2( Y , DELTA ,CMU .GAMB 2 ALFINF .NROWS , LIKE ) 
DIMENSION Y( 40 ), DELTA! 40 ) ,CMU( 40 ) ,GAM3( 40 ) 2 ALFINF ( 40 ) 
DIMENSION E( 40 ) ,B( 40 ) ,C( 40 ) ,DP! 40 ) >DM( 40 ) ,DGAM( 40 ) 



CCMGO / CCLGO 
00) CXCLO = - ( CCMGO+CCMJO ) / CCLO 

* CREF 

* CREF 

+ CMJMCO + CMTMCO 
CLLJO 
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LOGICAL 21 ,22,23 ,24,25,26,211 ,2T2 

FIND COEFFICIENTS OF CURVES 
J = 0 

DO 60 1=1 >NROWS 
21=1. EO.l 

22=LIKE . GT . 0 . AND . I . EQ . NROWS 

23= ( LIKE . LE . 0 . AND . I . EQ . NROWS ) . OR . ( LIKE . GT . 0 . AND . I . NE . NROWS . AND . 

1 Y d ) . GT . 0 . 0 . AND . Y d + 1 ) . LT . 0 . 0 ) 

24=LIKE . GT . 0 . AND . I . GT . 1 . AND . Y ( I 1 . LT . 0 . 0 . AND . Y ( I - 1 ) . GT . 0 . 0 

25 = 1 I . NE . NROWS 1 . AND . ( ( CM'J( I ) . LT . 0 . 0001 . AND . CKU( I + 1 ) . GT . 0 . 0 1 . OR . 
1(CNU( I 1 . GT . 0 . 0 . AND . CMU( 1 + 1 1 . LT . 0.0001 ) ) 

26 = ( I . GT . 1 ) . AND . ( ( CMUi I I . GT . 0 . 0 . AND . CMU( 1-1 ) . LT . 0 . 0001 1 .OR . 

1 ( CMU( I ) . LT . 0 . 00C1 . AND . CMU( I -1 ) . GT . 0 . 0 ) ) 

D1=SQRT ( 1 . 0-ABS( Y ( I ) ) ) 

2T1=21 . OR . 24 . OR . 26 
ZT2=Z2 . OR . Z3 . OR . 25 
I F ( J.EQ.l )G0 TO 10 
IF( ZT1 ) J=1 
IF( 2T1 1G0 TO 40 
J=0 

10 CONTINUE 

IFJ2T2) GO TO 30 
D2=SQRT ( 1 . 0-ABS( Y ( I +1 ) 1 1 
D3=SQRT ( 1 . 0-ABS( Y ( 1-1 ) 1) 

G1=GAMB< I ) 

G2=GAMB( 1+1 ) 

G3=GAMB( 1-1 1 

D13=D1**3 

D23=D2**3 

D33=D3**3 

D15=D1**5 

D25=D2**5 

D35=D3**5 

F1=D23*D35-D33*D25 

F2=D13*D35-D33*D15 

F3=D13*D25-D23*D15 

E(I ) = ( G1*F1-G2*F2+G3*F3 )/( D1*F1-D2*F2 +D3*F3 ) 

B( I ) = ( (Gl-Ed )*D1 )^D25-( G2-E ( I )*D2 )*D15 )/( D13*D25-D23*D15 ) 

Cd ) = (G1-E(I )*D1-B( I )*D13 )/D15 
IF( J.EQ.O ) GO TO 40 
20 E(I-1 ) = E ( I ) 

Bd-1 )=Bd ) 

C(I-1)=C(I) 

J=0 

GO TO 40 
30 E(I )=E( 1-1 1 
B( I 1 =B( 1-1 ) 

Cd )=Cd-l) 

40 CONTINUE 

IF( Y ( I l.LT.O.O) GO TO 50 

DP( I )=SQRT ( ABS( Dl* 2-DELTA( 111) 

DM( I )=SQRT ( Dl**2 + Dt LTA( I ) 1 
GO TO 60 

50 DPd )=SQRT ( D1**2 + DELTA( I 1 ) 

DM( I 1=SQRT ( D1**2-DELTA( I I ) 

60 CONTINUE 

CALCULATE STRENGTH Of DISCRETE VORTICIES 
DO 80 I=1 2 NR0WS 

IF ( I.LT.NftOWS. AND. ( ( CMU( I ). LT . 0 . 0001 . AND . 

1( CMUd 1. GT. 0.0. AND. CMUd + 1 ) . LT . 0.0001 ) ) ) 

DGAM( I 1=0.0 
GO TO 80 

70 DGAMd) = (Ed+l)-Ed))*DMd) + (Bd+l)-Bd))*DMd)**3 + (Cd + l)-Cdn 
1*DM( I 1**5 
80 CONTINUE 

CALCULATE DOWNWASH 
DO 100 1=1, NROWS 
ALFINFd 1=6.0 
F2=SQRT( 1.0-Y(I ) ) 

F4=S0RT( 1.0+Y(I )) 

DO 90 J=l, NROWS 
IF(Y( Jl.LT .0.0) F2=F4 
CON=1.0 

I FC Y( Jl.LT. 0.0 1 C0N = -1 . 0 

F1=AL0G( ABS( ( ( DP( J )-F2 )*< DM( J 1 + F2 1 )/( ( DP( J ) + F2 )*< DM( J ) -F2 )) ) ) 
S1=C0N*F1/F2 

S2=( 2 . 0*( DP( J ) — DM ( J ) )+F2*Fl )*CON 

S3=C0N*( 2 . 0*( DP( J )**3-DM( J 1**3 1/3 . 0 ) + F2**2*S2 

DE LG=-DGAM( J )/( Yd )-Y( J )+DELTA( J 1 1 

I F C LIKE . GT . 0 ) GO TO 90 

F3 = AL0G( ABS( ( ( DP( J )-F4 )*< DM( J 1 + F4 ) )/( ( DP( J ) + F4 )*< DM( J 1-F4 1)1) 

S2P=2 . Q*( DP( J )-DM( J ) )+F4*F3 

IFJLIKE.LT. 0) SY=-1 . 0 

IF ( LIKE . EQ. 0 ) SY = 1 . 0 

S1=S1+SY*F3/F4 

S2=S2+SY*S2P 

S3=S3+SY*< ( 2 . 0*( DP( J )**3-DM( J 1**3 1/3 . 0 )+F4**2*S2P 1 
DELG=DELG-SY*DGAM( J )/( -Y( I )-Y( J )+DELTA( J ) ) 

90 ALFINFJ I )=ALFINF ( I 1+0 . 1591549*( 0 . 5*E ( J )*S1 + 1 .5*B< J )*S2+2.5*C( J )* 
1S3 + DELG ) 



. CMU( I +1 1 . GT . 0 . 0 ) . OR . 
GO TO 70 



100 



CONTINUE 
RETURN 
END 

SUBROUTINE 



TABLE ( CLO ,CLA ,CMO ,CMA ,CLLQ,CLLA ,CDIO ,CDIX ,COI A2 ,CJ, 
x CNIO ,CNIX ,CNIA2 ,CNJ ,CYO ,CYX ,CYA2 ,MCASE 1 

THIS SUBROUTINE COMPUTES AND PRINTS A TABLE OF TOTAL COEFFICIENTS 
FOR A RANGE OF ANGLES OF ATTACK 
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COMPUTE THE COEFFICIENTS 
WRITE (6, 10 ) MCASE 

10 FORMAT) 1H1 ,31X,14( 4H**** ) /32X,27H* TABULATED TOTAL COEFFICI, 

1 23HENTS FOR COMPOSITE CASE, it, 3H */ 32X , 14) 4H**** )// 

2 4X, 5H ALPHA, 10X, 3HCCL, 8X , 6HCCL**2, 5X, 7HCCM) MC ) ,4X ,3HCLL , 13X , 

3 5HCDITZ , 6X , 3HCCT , 13X,3HCNI ,8X , 2HCN > 9X , 3HCCY ) 

ALPHA = -11.00 

DO 60 M = 1,41 
20 ALPHA = ALPHA + 1.00 
ALPHA2 = ALPHA * ALPHA 
LINEAR COEFFICIENTS 
30 CL = CL0 + CLA * ALPHA 
CL2 = CL * CL 
CM = CM0 + CMA * ALPHA 
CLL = CLL0 + CLLA * ALPHA 
NONLINEAR COEFFICIENTS 

40 CDI = CDI0 + CDIX * ALPHA + CDIA2 * ALPHA2 
CT = CJ - CDI 

CNI = CNI0 + CNIX * ALPHA + CNIA2 * ALPHA2 
CN = CNJ + CNI 

CY = CY0 + CYX * ALPHA + CYA2 * ALPHA2 
PRINT THE TABLE 

WRITE ( 6 , 50 ) ALPHA >CL>CL2» CM, CLL jCDI>CT ,CNI ,CN ,CY 
50 FORMATtlH , F10.6,5H * ,4Fll.7,5H * ,2Fll.7,5H * ,3F11.7) 

60 CONTINUE 
RETURN 
END 

SUBROUTINE FUNDER ( EPS ,CP0,CPA >CPR0 ,CPRA ,CPP, DEL , CHORD ,Y, DELTA ,CMU, 

1 AREA ,CLQ,CMG,CMQMC,CLLP,CNP2,NW, I J,NMAX,NJT, NEWMAX, NCA$ES, NOALFA, 

2 NROWS,ISYMM,XL,TL,XMC ) 

THIS SUBROUTINE CONTROLS CALCULATION OF ALL AERODYNAMIC COEFFICIENTS 
AND STABILITY DERIVATIVES FOR THE FUNDAMENTAL CASES 

COMMON/SOLV1/CP ) 600,10) 

DIMENSION CPO ( NEWMAX KCPA) NEWMAX ) ,CPR0) 600 ) ,CPRA) 600 ) ,CPP( 600 ) 
DIMENSION DEL ( 600 ) .EPS) oOO , 10 ) ? EP) 600 ) 

DIMENSION CHORD ( 40 ) ,Y) 40 ), DELTAS 40 ) ,CMU) 40 ) ,XLl 40 ) ,TL( 40 ) 

DIMENSION NW( 40 ) >IJ( 40 ) 

FIND THE SPOT WHERE THE SOLUTION OF THE FIRST RUN WAS STORED 
IREAD = NMAX + NJT 
IFUDGE = 0 
CLLP = 0.00 
CNP2 =0.00 
CNPO = 0.00 

CALCULATE THE CHORDWISE LOADING 
10 CALL STG3FC) NEWMAX) 

DEFINE THE DUMMY CP ARRAYS FOP THE ALPHA CASE 
AND THE CP ARRAY FOR THE ROLLING FUNDAMENTAL CASE 
DO 20 I = 1, NEWMAX 
CPA( I ) = 0.0 
CPRA ( I ) = 0.0 
CPPII ) = CP ( I , NCASES ) 

20 CONTINUE 

DO 120 N = 1,NCASES 
LCASE = N 
IREAD = IREAD + 1 
FIND) 1 ’IREAD ) 

CALCULATE THE SPANWISE AND TOTAL LOADING 
30 IF) N .EQ. NCASES) 

1 CALL STG3FS) DUM1 ,DUM2 ,DUM3 ,CLLP ,NEWMAX , NOALFA , LCASE ) 

READ THE FIRST RUN SOLUTION 
READ) 1 1 IREAD ) CPO 

DEFINE CP AND EP ARRAYS FOR THE PRESENT SECOND RUN FUNDAMENTAL CASE 
DO 40 I = 1 jNEWMAM 
CPROd ) = CP) I, LCASE) 

EP) I ) = EPSd, LCASE ) 

40 CONTINUE 

CALCULATE THE STABILITY DERIVATIVES 

CALL SUMIT1 l CPO, CPA, CPP, CPRO, CPRA ,DEL,EP, CHORD, Y» DELTA, CMU, XL, TL, 

1 XMC , AREA ,DUN1,DUM2 ,CNP2 ,CLLR0,DUM3 ,DUM5 ,DUM6 ,CYP2, 

2 NW, I J,NROWS,lSYMM, NEWMAX, IFUDGE ) 

I F ( N . LT. NCASES) GO TO 50 

CNPO = DUM1 
GO TO 100 

50 CALL SUMIT2) CP0,CPA,CPR0 , CPRA , DEL ,EP , CHORD ,Y , DELTA , AREA ,CMU, XL ,TL , 

1 XMC,CNR0,DUM1 ,DUM2,CNR20,DUM3,DUM4,CYR0,DUM5,DUM6, 

2 CYR 20 , DUM7 , DUMB , NW , I J , NROWS , ISYMM , NEWMAX ) 

PRINT THE STABILITY DERIVATIVE DATA 
60 WRITE) 6, 70 ) LCASE 

70 FORMAT) 1H1,32X, 13) 4H**** ) , 3H*** / 33X, 

1 49H* STABILITY DERIVATIVE DATA FOR FUNDAMENTAL CASE, 13, 

2 3H * / 33X,13(4H**** ), 3H*** /) 

WRITE) 6, 80 ) CLLRO 

80 FORMAT) 1H0/ 25X , 44HR0LLING MOMENT COEFFICIENT DERIVATIVE DUE TO, 

1 15H YAWING, CLLR =, F12.7) 

WRITE) 6, 90 ) CNRO ,CNR20 

90 FORMAT) 1H0/12X .42HYAWING MOMENT COEFFICIENT ABOUT XMC DUE TO, 

1 53H YAWING ABOUT XCG, CN) R ) MAY BE CALCULATED AS FOLLOWS // 

2 49X, 25HCN) R ) = CNfc*R + CNR2*R**2 // 

3 49X , 13H WHERE CNR =,F14.9 / 56X, 6HCNR2 =,F12.7) 

WRITE (6,95) CYRO ,CYR20 
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95 FORMAT ! 1H0/ 23X,43HSIDE FORCE COEFFICIENT OUE TO YAWING, CYtR), 

1 29H MAY BE CALCULATED AS FOLLOWS// 

2 49X , 25HCY ( R J = CYR*R + CYR2*R**2// 

3 4°X,13HWHERE CYR =,F14.9/ 56X,6HCYR2 =,F12.7) 

GO TO 120 

100 WRITE ( 6 , 70 ) LCASE 

WRITE l 6? 110 ) CLLP,CNP2,CYP2 

110 FORMAT! 5.H0/ 28X, 3SHROLLING MOMENT COEFF OERIVATIVE OUE TO, 

1 16H ROLLING, CLLP = , F12.7 /// 

2 17X, 42HY AWING MOMENT COEFFICIENT ABOUT XMC DUE TO, 

3 44H ROLLING, CN! P ) MAY BE CALCULATEO AS FOLLOWS // 

4 53X , 17HCNIP) = CNP2*P**2 // 

5 53X, 13HWHERE CNP2 =,F12.7/// 

6 30X ,44H5IDE FORCE COEFFICIENT DUE TO ROLLING, CY(P), 

7 29H MAY BE CALCULATED AS FOLLOWS// 

8 53X , 17HCY ( P J = CYP2*P**2// 

9 53X , 13HWHERE CYP2 =,F12.7) 

120 CONTINUE 

RETURN 

END 

SUBROUTINE COMDERI EPS , CPO ,CPA, CPRO , CPRA , CPP , CPREAD , DE L , CHORD ,Y , 

1 CMU ,DELTA , ARE A ,CLu ,CKQ ,CMuMC ,CLLP ,CNP2 ,NW,I J ,NMAX ,NJT , NEWMAX , 

2 NC ASES ,NROWS , ISYMM ,XL , T L ,XMC ) 

THIS SUBROUTINE CONTROLS CALCULATION OF STABILITY DERIVATIVES 
FOR ALL COMPOSITE CASES 

COMMON/SOLV1/CPI 600,10 ) 

COMMON/COMPOS/FACTOR! 10,24 ) ,NCC 

DIMENSION CP0( NEWMAX ) >CPAI NEWMAX ) ,CPR0( 600 ) ,CPRA( 600 ) ,CPP( 600 ) , 

1 CPREAD! NEWMAX) 

DIMENSION DEL! 600 ) ,EPSl 600,10 KEPI 600 ) 

DIMENSION CHORD! 40 KYI 40 ), DELTA! 40 ) ,CMU( 40 ) ,XL( 40 ) ,TL( 40 ) 
DIMENSION NW( 40 ) ,IJl 40 ) 

CYCLE THROUGH ALL COMPOSITE CASES 
IFUDGE = 1 
DO 100 M = 1 ,NCC 
MCASE = M 
NCI = NCASES - 1 

FIND THE SPOT WHERE THE SOLUTION OF THE FIRST RUN WAS STOREO 
IREAD = NMAX + NJT + 1 
FIND! 1 'IREAD ) 

OEFINE CP ANO EP ARRAYS FOR THIS SECOND RUN COMPOSITE CASE 
NOTE THAT CPP HAS PREVIOUSLY BEEN OEFINED IN FUNDER 
DO 20 I = 1, NEWMAX 
CPRO! I ) = 0.00 



EP! I ) = 0.00 
CPRA! I ) = CPI 1,1) 
DO 10 N = 1 ,NCl 
CPRO! I) = CPRO! I) 



+ FACTOR! N,M ) * CP(I,N) 



EP! I 1 = EP! I I + FACTOR! N,M ) * EPS(I,N) 
10 CONTINUE 
20 CONTINUE 

OEFINE CP FOR THE FIRST RUN COMPOSITE CASE 
IF! M .EQ. 1) READ! 1'IREAO) CPA 
DO 30 I = 1 , NEWMAX 
CPO ( I 1 = 0.00 
30 CONTINUE 

IREAD = IREAD - 1 
DO 60 N = 1 , NC 1 
IREAD = IREAD + 1 
FIND! 1 ’ IREAD ) 

IF! FACTOR! N,M ) 



.EG. 0.0) GO TO 60 



irt rMLiuKUMjn j u 

40 READ! 1 ’IREAD ) CPREAD 
DO 50 I = 1, NEWMAX 

CPO(I) = CPOlI) + FACTOR! N,M ) * CPREAD! I ) 



50 CONTINUE 
60 CONTINUE 

CALCULATE THE COMPOSITE CASE DERIVATIVES 

70 CALL SUMITll CPO, CPA, CPP, CPRO, CPRA, DEL ,EP, CHORD, Y, DELTA, CMU, XL, TL, 

1 XMC , AREA ,CNP0,CNPA ,CNP2 ,CLLRO,CLLRA ,CYP0 ,CYPA ,CYP2 , 

2 NN,IJ,NP0WS, ISYMM, NEWMAX, IFUOGE ) 

80 CALL SUMIT2! CPO, CPA, CPRO, CPRA, DEL. EP, CHORD, Y, DELTA, AREA, CMU, XL, TL, 
1 XMC, CNR0,CNRA,CNRA2,CNR20,CNR2A,CNR2A2,CYR0, CYRA, CYRA2, 

1 CYR20,CYR2A,CYR2A2,NW, I J,NROWS, ISYMM, NEWMAX) 

PRINT A SUMMARY TABLE OF ALL STABILITY DERIVATIVES 

90 CALL STABLE I CLG ,CMO ,CMGMC ,CLLP ,CNP0 ,CNPA ,CNP2 ,CYP0 ,CYPA ,CYP2 , 

1 CLLRO ,CLLRA ,CNR0 ,CNRA ,CNRA2 ,CNR20 ,CNR2A ,CNR2A£ , 

1 CYRO, CYRA, CYRA2,CYR20,CYR2A,CYR2A2, MCASE ) 

100 CONTINUE 
RETURN 
END 

SUBROUTINE SUMITl! CPO , CPA, CPP , CPRO , CPRA ,0EL , EPS ,CHORO ,Y ,0ELTA , CMU, 

1 XL, TL, XMC, AREA, CNP0,CNPA,CNP2, CLLRO, CLLRA,CYP0,CYPA,CYP2, 

2 NW,IJ,NROWS, ISYMM, NEWMAX, IFUDGE ) 

THIS SUBROUTINE INTEGRATES CP CHORDWISE ANO SPANWISE TO CALCULATE 
THE TERMS OF CNP AND CLLR DERIVATIVES 

COMMON /OERIV/ U0( 40 ) ,CLQ ,CMQ ,CMQMC 

DIMENSION CPO! NEWMAX ) ,CPA( NEWMAX ) ,CPPI 600 ) ,CPR0( 600 ) , CPRA! 600 ) 
DIMENSION DELI 600 ), EPS! 600 1 

DIMENSION CHORD! 40 KY( 40 ), DELTA! 40 ) ,CMUI 40 ) ,XL( 40 ) ,TLI 40 ) 

OIMENSION NW( 40 ) ,IJ( 40 ) 

INITIALIZE THE OERIVATIVE TERMS 
10 CNPO =0.00 
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CNPA 

CNP2 

CYPO 

CYPA 

CYP2 



0.00 

0.00 

0.00 

0.00 

0.00 



CLLR0 = 0.00 
CLLRA = 0.00 

INTEGRATE THE COEFFICIENT TERMS SPANWISE 
1=0 

DO 100 K = 1 >NR0WS 

INTEGRATE THE COEFFICIENT TERMS CHORDHISE 
LEADING EDGE CONTRIBUTION 
1 = 1 + 1 

YAWING DUE TO ROLLING 

20 TERMP = DELd) * (CPPd) + 0 . 50*CPP ( I +1 ) ) 
EP = -EPS(I) / (57.295779 * UO(KJ) 

DPO = TERMP * EP 
DPA = TERMP 

SPO = 0 . 3490658 * DELI I 1 * CPPd) * CPO(I) 
‘ DEL( I ) * CPP ( I ) * CPA ( I ) 

DEL( I ) * CPP(I )**2 



SPA 

SP2 



0 . 3490658 * 

0. 1745329 * . 
ROLLING DUE TO YAWING 
30 CLGO = DELd) * ( CPR0( I ) 
CLGA = DELd ) * (CPRAd ) 



0 . 50*CPR0( I +1 ) ) 
0 ,50*CPRA( 1+1 ) ) 



0.0001) GO TO 50 



REGULAR EVD CONTRIBUTIONS 

40 NWK = NW( K ) 

DO 70 L = 2, NWK 
1 = 1 + 1 
CPP1 = CPP(I+1) 

CPR01 = CPR0(I+1 ) 

CPRA1 = CPRA(I+1 ) 

X Ft L .LT. NWK ) GO TO 50 
CPP1 = 0.00 
CPR01 = 0.00 
CPRA1 = 0.00 
IF(CMUtK) .LT. 

IJK = I J( K ) 

CPP1 = CPPIIJK) 

CPR01 = CPROI IJK ) 

CPRA1 = CPRA( IJK ) 

50 EP = -EPSII) / (57.295779 * U0(K)) 

TERMP = 0.50 * DELd) * (CPP(I) + CPP1) 

DPO = DPO + TERMP * EP 
DPA = DPA + TERMP 

60 CLGO = CLGO + 0.50 * DELd) * (CPRO(I) + CPROI) 
CLGA = CLGA + 0.50 * DELd) * (CPRAd) + CPRA1 ) 

70 CONTINUE 

INTEGRATE THE COEFFICIENT TERMS SPANWISE 
FACTOR = CHORD! K) * Y ( K ) * DELTA! K ) 

FACTO = CHORD! K ) * DELTA! K ) * TL ( K ) 



FACT 
80 CNPO 
CNPA 
CNP2 
CYPO 
CYPA 
CYP2 



FACTO 
CNPO + 
CNPA 
CNP2 
CYPO 
CYPA 
CYP2 



( XL ( K )-XMC ) 

(DPO - SPO) * FACTOR - SPO * FACT 

( DPA/57 . 2°5779 - SPA) * FACTOR - SPA * FACT 

SP2 * FACTOR + SP2 * FACT 

SPO * FACTO 

SPA * FACTO 

SP2 * FACTO 

+ CLGO * FACTOR 

+ CLGA * FACTOR 



* CLLRA 

FACTOR 

CYPO 

CYPA 

CYP2 

0 ) GO TO 115 



+ 

+ 

+ 

+ 

+ 

90 CLLRO = CLLRO 
CLLRA = CLLRA 
100 CONTINUE 

PUT THE TERMS IN FINAL FORM 
FACTOR = 1.00 / AREA 

IFdSYMM .LT. 0) FACTOR = 2.00 / AREA 
110 CNPO = FACTOR * CNPO 
CNPA = FACTOR * CNPA 
CNP2 = -FACTOR * CNP2 
CLLRO = -FACTOR * CLLRO 
CLLRA = -FACTOR 
FACTOR = 2.00 * 

CYPO = FACTOR 
CYPA = FACTOR 
CYP2 = FACTOR 
IF! I FUDGE .NE. 

CNPO = 0.00 
CYPO = 0.00 
115 IFdSYMM .GE. 

CNP2 =0.00 
CYP2 = 0.00 
120 RETURN 
END 

SUBROUTINE SUMIT2! CPO ,CPA ,CPRO ,CPRA ,DEL ,EPS , CHORD >Y? DELTA , AREA , 

1 CMU ? XL,TL,XMC,CNR0?CNRA*CNRA2 ,CNR20 2 CNR2A ,CNR2A2 ,CYRO ,CYRA , 

2 CYRA2 ,CYR20 ,CYR2A ,CYR2A2 ,NW ,1 J ,NROW$ , ISYMM ,NEWMAX ) 

THIS SUBROUTINE INTEGRATES CP CHORDWISE AND SPANWISE TO CALCULATE 
THE TERMS OF THE YAWING AND SIDE FORCE COEFFICIENTS DUE TO YAWING 

COMMON /DERIV/ U0( 40 ) ,CLQ ,CMQ ,CMQMC 

DIMENSION CPO( NEWMAX KCPAt NEWMAX ) ,CPRO( 600 ) ,CPRA( 600 ) 

DIMENSION DEL! 600 ),EPS< 600 ) 

DIMENSION CHORD! 40 ) ,Y ( 40 ), DELTA! 40 ) ,CMU( 40 ) ,XL( 40 ) ,TL( 40 ) 
DIMENSION NW( 40 ) >1 J( 40 ) 

INITIALIZE THE YAWING COEFFICIENT TERMS 
10 CNRO =0.00 
CNRA =0.00 



0) GO TO 120 
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CNRA2 =0.00 
CNR 20 =0.00 
CNR 2 A =0.00 
CNR2A2 =0.00 
CYR0 = 0.00 
CYRA = 0.00 
CYRA2 = 0.00 
CYR20 = 0.00 
CYR2A = 0.00 
CYR2A2 = 0.00 

1=0 

DO 100 K = 1 >NR0WS 

INTEGRATE THE COEFFICIENT TERMS CHORDHISE 
LEADING EDGE CONTRIBUTIONS 
1 = 1 + 1 

20 TERM0 = DEL ( I ) * <CPR0(I) + 0 . 50*CPR0( 1 + 1 )) 

TERMA = DEL(I) * (CPRA(I) + 0 . 50*CPRA( 1 + 1 ) ) 

EP = -EPS(I) / (57.295779 * U0(K)) 

DRO = TERMO * EP 

DRA = TERMO/57. 295779 + TERMA * EP 
DRA2 = TERMA 

30 SRO = 0 . 3490658 * DEL(I) * CPRO(I) * CP0( I ) 

SRA = 0 . 3990658 * DEL ( I ) * ( CPR0( I )*CPA( I ) + CPRA( I )*CP0( I ) ) 
SRA2 = 0.3990658 * DEL(I) * ( CPRA( I )*CPA( I )) 

I F ( ISYMM .LT. 0 ) GO TO 90 

SR20 = 0.1795329 * DEL(I) * CPR0(I)**2 

SR2A = 0.3990658 * DEL ( I ) * CPR0( I )*CPRA( I ) 

SR2A2 = 0.1795329 * DEL(I) * CPRA(I)**2 

REGULAR EVD CONTRIBUTIONS 
90 NWK = NH(K) 

DO 70 L = 2, NWK 

1=1+1 

CPR01 = CPR0( I +1 ) 

CPRA1 = CPRA( 1+1 ) 

I F ( L .LT. NWK) GO TO 50 
CPR01 = 0.00 
CPRA1 = 0.00 

I F ( CMU( K ) .LT. 0.0001 ) GO TO 50 
IJK = I J( K ) 

CPR01 = CPR0( IJK) 

CPRA1 = CPRA( IJK ) 

50 EP = -EPS(I) / (57.295779 * UO C K ) ) 

REGULAR EVD CONTRIBUTIONS 

TERMO = 0.50 * DEL(I) * ( CPRO ( I )+CPR01 ) 

60 TERMA = 0.50 * DEL(I) * ( CPRA( I )+CPRAl ) 

DRO = DRO + TERMO * EP 

DRA = DRA + TERMO/57. 295779 + TERMA * EP 
DRA2 = DRA2 + TERMA 
70 CONTINUE 

INTEGRATE THE COEFFICIENT TERMS SPANWISE 
FACTOR = CHORD(K) * Y( K ) * DELTA(K) 

FACTO = CHORD(K) * TL( K ) * DELTA(K) 

FACT = FACTO * (XL(K)-XHC) 

80 CNRO = CNRO + ( DRO-SRO ) * FACTOR - SRO * FACT 

( DRA-SRA ) * FACTOR - SRA * FACT 

+ ( DRA2/57.295779-SRA2 ) * FACTOR - SRA2 * 

SRO * FACTO 
SRA * FACTO 
+ SRA2 * FACTO 
0) GO TO 100 

- SR20 * FACTOR -SR20 * FACT 

- SR2A * FACTOR - SR2A * FACT 
- SR2A2 * FACTOR - SR2A2 * FACT 
SR20 * FACTO 
SR2A * FACTO 
+ SR2A2 * FACTO 



FACT 



0) FACTOR 

* CNRO 

* CNRA 



= 2.00 / AREA 



CNRA = CNRA + 

CNRA2 = CNRA2 
CYRO = CYRO + 

CYRA = CYRA + 

CYRA2 = CYRA2 
IF( ISYMM .LT. 

90 CNR 20 = CNR20 
CNR2A = CNR2A - 
CNR2A2 = CNR2A2 
CYR20 = CYR20 + 

CYR2A = CYR2A + 

CYR2A2 = CYR2A2 
100 CONTINUE 

PUT THE TERMS IN FINAL FORM 
FACTOR = 1.00 / AREA 
I F ( ISYMM .LT. ‘ 

110 CNRO = FACTOR 
CNRA = FACTOR 
CNRA2 = FACTOR * CNRA2 

CNR20 = FACTOR * CNR 20 

CNR2A = FACTOR * CNR2A 

CNR2A2 = FACTOR * CNR2A2 
FACTOR = 2.00 * FACTOR 
CYRO = FACTOR * CYRO 
CYRA = FACTOR * CYRA 
CYRA2 = FACTOR * CYRA2 

CYR20 = FACTOR * CYR20 

CYR2A = FACTOR * CYR2A 

CYR2A2 = FACTOR * CYR2A2 
120 RETURN 
END 

SUBROUTINE STABLE ( CLQ >CMQ >CMQMC ? CLLP ,CNPO,CNPA >CNP2,CYP0 ,CYPA , 

1 CYP2 ,CLLRO ,CLLRA ,CNRO ,CNRA ,CNRA2 >CNR20 ,CNR2A ,CNR2A2 , 

2 CYRO, CYRA, CYRA2 ,CYR20 ,CYR2A ,CYR2A2 >MCASE ) 

THIS SUBROUTINE CALCULATES AND PRINTS A COMPLETE SUMMARY TABLE 

OF ALL STABILITY DERIVATIVE DATA FOR EACH COMPOSITE CASE 

COMMON/COMPOS/FACTOR ( 10,29 ),NCC 

PRINT ALL CONSTANT DERIVATIVES 
WRITE ( 6 , 10 ) MCASE 
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10 FORMAT! 1H1, 33X, 13! 4H****),1H* / 34X, 

1 4 7H* STABILITY DERIVATIVE DATA FOR COMPOSITE CASE, IS, 

2 3H */ 34X,13(4H****),1H* / I 
WRITE 1 6 * 20 ) ( N ,N=3 > 10 ) , ( FACTOR! N,MCASE ) ,N=1 ,10 ) 

20 FORMAT ! lH ,48X ; 24HFUNDAMENTAL CASE FACTORS/ 10X , 9! 4X , 2HA! ,1 1 , 1H ) , 
2X ) , 3X , 2HAl »I2,1H ) / 10X,10F10.6) 



SO 



1 2X),SX,2HA( *12, 1H ) / 10X,1 

WRITE ( 6 » SO ) CLQ »CMQ >CMQMC 

FORMAT l lHO/ 26X,4iHLlFT COEFFICIENT DERIVATIVE DUE TO PITCHING, 

1 17H ABOUT XCG , CLQ =,F10.6 / 

2 14X ,51 HP ITCH IMG MOMENT COEFFICIENT DERIVATIVE ABOUT ORIGIN, 

S SSH DUE TO PITCHING ABOUT XCG, CMQ =,F10.6 / 

4 16X ,42HPITCHING MOMENT COEFF DERIVATIVE ABOUT XMC , 

5 S5H DUE TO PITCHING ABOUT XCG, CMQMC =, F10.6) 

WRITE ( 6 * 40 ) CLLP ,CNPO ,CNPA »CNP2 

40 FORMAT! 1H0/28X , 38HR0LLING MOMENT COEFF DERIVATIVE DUE TO, 

1 16H ROLLING, CLLP =,F12.7 /// 

2 17X , 5 1H YAWING MOMENT COEFFICIENT ABOUT XMC DUE TO ROLLING,, 

S 35H CN( P I MAY BE CALCULATED AS FOLLOWS / 

4 48X , 25HCN! P ) = CNP*P + CNP2*P**2 / 

5 42X , S1HWHERE CNP = CNPO + CNPA*ALPHA / 

6 52X * 6 H CNPO =,F12.7/52X, 6HCNPA = , F12 . 7/52X ,6HCNP2 =,F12.7) 
WRITE! 6,45) CYPO ? CYPA ,CYP2 

45 FORMAT! 1H0/26X ,44HSIDE FORCE COEFFICIENT DUE TO ROLLING , CY(P), 

1 29H MAY BE CALCULATED AS FOLLOWS/ 

2 48X , 25HCY ( P ) = CYP*P + CYP2*P**2/ 

S 42X ,S1HWHERE CYP = CYPO + CYPA*ALPHA/ 

4 52X * 6HCYP0 = ,F12 . 7/52X,6HCYPA = , F12 . 7/52X ,6HCYP2 =,F12.7) 
WRITE ! 6 , 50 ) CLLRO,CLLRA 

50 FORMAT! 1H0/15X ,38HR0LLING MOMENT COEFF DERIVATIVE DUE TO, 

1 52H YAWING ABOUT XCG, CLLR MAY BE CALCULATED AS FOLLOWS / 

2 48X , 26HCLLR = CLLRO + CLLRA*ALPHA / 

5 48X , 15HWHERE CLLRO =,F13.7 / 56X,7HCLLRA =,F1S.7) 

WRITE! 6, 60 ) CNR0,CNRA,CNRA2,CNR20,CNR2A,CNR2A2 

60 FORMAT! 1H0/12X ,42HYAWINS MOMENT COEFFICIENT ABOUT XMC DUE TO, 

1 5SH YAWING ABOUT XCG, CN(R) MAY BE CALCULATED AS FOLLOWS / 

2 48X , 25HCN! R ) = CNR*R + CNR2*R**2 / 

S S6X,4SHWHERE CNR = CNRO + CNRA*ALPHA + CNRA2*ALPHA**2 / 

4 52X * 6HCNR0 = , FIS . 7/52X,6HCNRA = , F 15 . 7/51X , 7KCNRA2 =,F1S.7/ 

5 36X,5lHAND CNR2 = CNR20 + CNR2A*ALPHA + CNR2A2*ALPHA**2/ 

6 51X.7HCNR20 = , FIS . 7/51X , 7HCNR2A = , FIS . 7/50X,8HCNR2A2 =,F1S.7) 
WRITE! 6,65 ) CYRO ,CYRA ,CYRA2 ,CYR20 ,CYR2A,CYR2A2 

65 FORMAT! 1hO/1SX,S9HSIDE FORCE COEFFICIENT ABOUT XMC DUE TO, 

1 5SH YAWING ABOUT XCG, CY(R) MAY BE CALCULATED AS FOLLOWS / 

2 48X , 25HCY ( R l = CYR*R + CYR2*R**2 / 

S S6X,48HWHERE CYR = CYRO + CYRA*ALPHA + CYRA2*ALPHA**2 / 

4 52X , 6HCYR0 = , F13 . 7/52X , 6HCYRA = , F13 . 7/51X , 7HCYRA2 =,F13.7/ 

5 S6X ,51HAND UYR2 = CYR20 + CYR2A*ALPHA + CYR2A2*ALPHA**2/ 

6 51X , 7HCYR20 = , FIS . 7/51X, 7HCYR2A = , FIS . 7/50X ,8HCYR2A2 =,F13.7) 

PRINT TABLE OF DERIVATIVE TERMS WHICH DEPEND ON ALPHA 
WRITE! 6, 70 ) 

70 FORMAT! 1H1 ,32X ,3H*** , 10! 5H***** ) ,/, 

1 33X >53H* VARIATION OF STABILITY TERMS WITH ANGLE OF ATTACK *,/, 

2 33X,3H***,10(5H*****),//, 

5 9X,5H ALPHA, 12X ,3HCNP , 10X ,4HCNP2 , 14X ,SHCYP , 10X ,4HCYP2 , 



4 14X,4HCLLR , 9X , SHCNR , 10X ,4HCNR2 ) 
ALPHA = -11.00 



DO 120 M = 1,41 
80 ALPHA = ALPHA + 1.00 

CNP = CNPO + CNPA * ALPHA 
CYP = CYPO + CYPA * ALPHA 
90 CLLR = CLLRO + CLLRA * ALPHA 

CNR = CNRO + CNRA * ALPHA + CNRA2 * ALPHA**2 
100 CNR2 = CNR20 + CNR2A * ALPHA + CNR2A2 * ALPHA**2 

WRITE! 6, 110 ) ALPHA, CNP, CNP2, CYP, CYP2, CLLR, CNR, CNR2 
110 FORMAT! 1H , 5X,F10.6,5H * ,£F13.7,5H * ,2F1S.7,5H * , 

1 SF1S.7) 

120 CONTINUE 
RETURN 
END 

SUBROUTINE STAGE4 

THIS PROGRAM CONTROLS THE EXECUTION OF UTILITY ROUTINES AND 
BOUNDARY CONDITION SETUP FOR STABILITY DERIVATIVE RUNS 

COMMON/MATHE W/NC ASES , ISYMM , I PRINT , JETFLG , IGTYPE > I HINGE 
COMMON/MARK/NROWS ,NROWSJ ,NWT ,NJT ,N?1AX ,NW( *0 ) 2 NJ( 40 ) ,IW( 40 ) ,1 J! 40 ) 
COMMCN/JOHN/ AREA , SPAN ,ARATlO ,TR , SWEEP >CRE F,CMAC ,CBAR ,XMC ,XCG 
COMMON/SPIRIT/ NEWMAX2NEWCMU,N0ALFA,L0GIC,IR 

C0MM0N/GE0M1/Y ! 40 ) , CHORD! 40 ), DELTA! 40 ) ,XB( 600 ) ,XI( 600 ) ,DEL( 600 ) , 

1 Dl 40 ) ,KK( 600 ) ,ITYPE! 600 ) 

COMMON/FCASE 2/TST (40,10 ) ,HL( 40 , 10 ) , DJ! 40 ) ,ACTE( 40 ) ,AC( 20,40 ), 

1 XHB! 4,40 ), BET! 4,40 ) ,IFS( 4,40 ) ,ICT( 40 ) ,IHT! 40 ) ,NCT,NHT 

COMMON/FCASES/EPS! oOO , 10 ) ,BETA< 600 , 10 ), THETA! 40 , 10 ) ,THS( 40 , 10 ) 
C0MM0N/S0LV1/CP! 600,10) 

DIMENSION CPRE AD! 600 ) 

ADD THE EXTRA FUNDAMENTAL CASE FOR DERIVATIVES DUE TO PITCHING 
IF! LOGIC .GT. 1 ) GO TO 60 
10 IF ( NCASES .LT. 10) GO TO SO 
WRITE! 6, 20 ) 

20 FORMAT! 1H0//14X,44HFUNDAMENTAL CASE 10 HAS BEEN REPLACED BY THE, 

1 47H FOLLOWING CASE FOR DERIVATIVES DUE TO PITCHING) 

GO TO 40 

SO NCASES = NCASES + 1 

40 CALL BCPICH! XCG, CREF, XI, DEL, EPS, BETA, CHORD, KK, THETA, THS,TST,HL, 

1 NW , I W , N J , I J , NWT , NMAX , NROWS , NC ASE S ) 

50 CALL 0UT2! NCASES) 

GO TO 100 

SAVE THE FIRST RUN SOLUTION ON UNIT 1 



60 ISIZE = NEWMAX 

CALL SAVECP! CP ,CPREAD ,NMAX ,NJT , ISIZE , NCASES ) 

DEFINE THE FUNDAMENTAL CASES FOR YAWING DERIVATIVES 
NCI = NCASES - 1 

70 CALL BCYAWf EPS, BETA >THETA,THS ,Y ,KK ,NWT ,NMAX,NROWS, NCI) 

DEFINE THE LAST FUNDAMENTAL CASE FOR ROLLING DERIVATIVES 

80 CALL BCROLL! EPS , BETA , THETA >THS ,TST ,Y ,NW ,NHT ,NMAX ,NROWS , NCASES ) 

PRINT THE FUNDAMENTAL CASE GEOMETRY 
I F ( IPRINT . GE . 01 GO TO 100 
DO ^0 N = 1, NCASES 
LCASE = N 
CALL OUT2( LCASE ) 

90 CONTINUE 
100 RETURN 
END 

SUBROUTINE OUT 2! LCASE ) 

THIS SUBROUTINE PRINTS OUT THE GEOMETRIC DATA DERIVED FROM THE 
SECTIONAL METHOD INPUT 

COMMON/MATHEW/NCASES ,ISYMM , IPRINT , JETFLG ,IGTYPE »IHINGE 
COMMON/MARK/NROWS .NRCWSJ ,NHT ,NJT ,NMAX ,NW( 40 ) ,NJl 40 ) , IW! 40 ) ,1 J! 40 ) 
COMMON /LUKE/ TITLE (20) 

COMMON/JOHN/ AREA >SPAN , ARATIO ,TR , SHEEP ,CRE F ,CMAC ,CBAR ,XMC >XCG 
COMMON/GEOMl/Y! 40 ) , CHORD ( 40 ), DELTA! 40 ) ,XB( 600 ) ,XI ( 600 ) ,DEL! 600 ) , 

1 D ( 40 ) »KK! 600 ) ? ITYPE!600 ) 

COMMON/GEOM2/XLEAD! 40 KXTRAIL! 40 ) ,TANLE ( 40 ),TANTE ( 40 ) 
COMMON/FCASE2/TST (40,10 ) ,HL! 40 > 10 1 >DJl 40 ) , ACTE! 40 ) ,AC( 20,40 ) , 

1 XHB( 4,40 ),BET!4,40 ) ,IFS! 4,40 ) ,ICT! 40 ) >IHT! 40 ) ,NCT ,NHT 

COMMON/FC ASE 3/E PS ( 600 ,10 ) ,BETA! 600,10 ), THETA! 40,10 ) ,THS( 40 ,10 ) 
COMMON/INDATA/ARE ,SPA ,CRE ,XM ,CMA ,XC ,NRO,NC ,ISY , I PR, JET ,IGT ,IHI 

PRINT CASE TITLE AND GENERAL GEOMETRIC PARAMETERS 
I F t LCASE .GT. 1 ) GO TO 60 
10 WRITE ( 6 , 20 )TITLE 
20 FORMAT ( ±H1 ,39X>10( 4H**** )/ 

1 40X,40H* EVD JET - WING COMPUTER PROGRAM */ 

2 40X,10t 4H****)///20X,20A4) 

CMA = CMAC * SPA / 2.0 

30 WRITE( 6 , 40 ) ARE A, ARE >SPAN , SPA ,CREF ,CRE >XMC ,XM , CMAC ,CMA , ARATIO , 

1 ARATIO, XCG ,XC 

40 FORMAT ( lH0//54X,4HUSfcD , llX ,5HINPUT / 

1 41X ,6HARt A = , 2 Fl5 . 6 / 41X,6HSPAN =,2F15.6 / 

2 41X,6HCREF =,2F15.6 / 42X,5HXMC =>2F15.6 / 

3 41X ,6HCMAC =,2F15.6 / 39X,8HARATI0 =,2F15.6 



/ 



‘tiAjonu imu r jlu . c 

42X ,5HXCG = » 2F15 . 6 I 

WRITE ( 6 , 50 ) NRO!(S, NRO, NCASES ,NC ,ISYMM ,ISY , IPRINT ,IPR, JETFLG , JET , 
1 IGTYPE , IGT , I HINGE , IHI ,NWT ,NJT ,NMAX 

50 FORMAT ( 1H0/ 48X,7HNR0WS =,I3,7X,I3 / 47X,8HNCA£ES =,I3,7X,I3 / 

48X , 7HISYMM =,I3,7X,I3 / 47X,8HIPRINT =,I3,7X,I3 / 

47X ,8HJETFLG =,I3,7X,I3 / 47X,8HIGTYPE =,I3,7X,I3 / 
47X,8HIHINGE =,I3,7X,I3 /// 

43X > 25’riNUNBER OF WING ELEMENTS =,I4 / 

43X , 25HMUMBER OF JET ELEMENTS =,I4 / 

42X , 26HTOTAL NUMBER OF ELEMENTS =,I4) 



1 
2 

3 

4 

5 

6 

60 J = 0 
JJ = NWT 

PRINT FUNDAMENTAL CASE HEADER 
WRITE! 6, 70 ) LCASE 
70 FORMAT! lHl ,23X,1H* > 19! 4H**** )/ 

1 24X ,54H* ELEMEt!T GEOMETRY DATA AND FUNDAMENTAL CASE DATA FOR, 

2 17H FUNDAMENTAL CASE, 13, 3H */24X , 1H* , 19! 4H**** ) ) 

ILINES = 3 

DO 260 K = 1 ,NROWS 

PRINT SECTIONAL DATA 

WRITE ( 6 , 80 ) K,Y(K),DELTA(K) ? XLEAD(K) ,XTRAIL( K ) , CHORD! K ) ,TANLE ( K ) 
80 FORMAT! 1H0,11H^** SECTION ,13 ,4H ^*,2X,3HY = , F10 . 6 ,2X ,7HDELTA =, 

1 F10 . 6 , 2X , 7HXLEAD = , F10 . 6 , 2X ,8HXTRAIL = , F10 . 6 , 2X , 7HCHORD =,F10.6, 

2 2X , 7HTANLE =,F10.6) 

PRINT CHORDWISE DATA ON WING 
NWK = NW(K) 

WRITE l 6 , 90 ) NWK, TST(K, LCASE ),HL(K, LCASE ),THS(K, LCASE ) 

90 FORMAT! 1H0,21HWING ELEMENTS NW = ? I3,5X, 7HTWIST =>F10.6,5X, 

1 4HHL = > F10 . 6 ,5X , 9HTHETA S =,F10.6) 

WRITE ( 6 , 100 ) (XB!J + L),L = 1, NWK ) 

100 FORMAT! 1H ,14X,2HXB, 10F11 . 6/17X,10Fll . 6 ) 

IF! LCASE .GT. 1) GO TO 130 
WRITE ! 6 , 110 ) (XI! J + L) ,L-1, NWK ) 

110 FORMAT! 1H ,14X, 2HXI ,10F11.6/17X,10F11 .6 ) 

WRITE ( 6 * 120 ) ! DEL! J + L ) , L = 1 ,NWK ) 

120 FORMAT! 1H , 13X ,3HDEL , 10F11 . 6/1 7X , 10F11 . 6 ) 

130 I F ( ICT ( K ) .EQ. 0) GO TO 150 
ICK = ICT ! K ) 

WRITE ( 6 , 140 ) ! AC ( L , I CK ) , L = 1 , NWK ) 

140 FORMAT! 1H , 10X ,6HCAMBER, 10F11 . 6/17X , 10F11 . 6 ) 

150 WRITE ( 6 , 160 ) ! EPS! J + L , LCASE ),L = 1 ,NK!< ) 

160 FORMAT! 1H ,13X,3HEPS,10F11. 6/17X,10Fll .6 ) 

WRITE ( 6 , 170 ) !BETA( J + L, LCASE ),L = 1, NWK) 

170 FORMAT ! 1H , 12X ,4HBETA ? 10F11 . 6/17X , 10F11 . 6 ) 

WRITE! 6, 180 ) ! ITYPE! J + L ) , L = 1 ,NWK ) 

180 FORMAT ! 1H , 12X,4HTYPE , 10! 3X,I2 ,6X )/17X,10! 3X,I2 ,6X ) ) 

J = J + NWK 
IL = 1 

IF! NWK .GT. 9) IL = 2 
ILINES = ILINES + 4 + 4*IL 
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no on noon on o o on noon no 



I F ( LCASE .EQ. 1) ILINES = ILINES + 2*IL 

PRINT CKORDWISE DATA ON JET 
NJK = NJ) K ) 

I F ( NJK .GT. 0) GO TO 200 
WRITE ( 6 , 190 ) 

190 FORMAT ( lH ,3X^19HTHIS ROW HAS NO JET) 

ILINES = ILINtS + 1 
GO TO 230 

200 WRITE ( by 210 ) NJK ,D ( K )>DJ( K ), ACTE ( K ) , THETA) K» LCASE ) 

210 FORMAT) 1H0,1X,20HJET ELEMENTS NJ =,I3,5X,3HD = , F10 . 6 ,5X >9HDJ =, 
1 F 10 . 6 >5X » 6HACTE = , F10 . 6 ,5X , 7HTHETA =>F10.6) 

WRITE ( 6 > 100 ) )XB( JJ + L ),L = 1, NJK ) 

I F ( LCASE .GT. 1 ) GO TO 220 
WRITE ( 6 , 110 ) I XI ( JJ + L I , L = 1 , NJK ) 

WRITE ( 6 > 120 ) ( DEL( JJ + L )>L=1, NJK) 

220 WRITE16, 170 ) ( BETA) JJ+L , LCASE J , L=1 , NJK ) 

WRITE ( 6 > 180 ) ( ITYPE( JJ + L ),L = 1, NJK ) 

JJ = JJ + NJK 
IL = 1 

I F ( NJK .EQ. 10) IL = 2 
ILINES = ILINES + 1 + 3 * IL 
IF ( LCASE .EQ. 1) ILINES = ILINES + 2*IL 
230 I F ( K .EQ. NROWS ) GO TO 260 
= NK ■ ‘ 



nW( K+ l ) 



NWK1 
IL = 1 
IFINWK1 .GT. 9) IL = 2 
NEXT = 9 + 9*IL 
IF( LCASE .EQ. 1) NEXT 
NJK1 = NJIK+l) 

IL = 1 

IF ( NJK1 .EQ. 10) IL = 
“XT + 1 



= NEXT + 2*IL 



NEXT = NEXT 

IF( LCASE .EQ. 1) NEXT = NEXT + 
290 IF( (55-ILINES) .GE " 



NEXT = NEXT 

I F ( NJK1 .EQ. 0 ) GO TO 290 

T + 1 + 3*IL 

' ‘ “XT = NEXT + 2*IL 

NEXT) GO TO 260 

WRITE ( 6 » 250 ) 

250 FORMAT ( 1H1 ) 

ILINES = 1 
260 CONTINUE 
RETURN 
END 

SUBROUTINE SAVECP* CP , DUMMY ,NMAX ,NJT , ISI2E >NCASES ) 

THIS SUBROUTINE SAVES THE CP SOLUTION FOR ALL FUNDAMENTAL CASES 
OF THE FIRST STABILITY DERIVATIVE RUN BY STORING ON DIRECT ACCESS 

DIMENSION CP ( 600 > 10 ) > DUMMY ( ISIZE ) 

FIND THE PROPER PLACE TO WRITE THE OLD SOLUTION 
10 IWRITE = NMAX + NJT 

FIND) l'IWRITE + 1 ) *** COMMENTED OUT BY JAC*** 

DEFINE THE DUMMY ARRAY 
DO 30 N = 1, NC ASES 
IWRITE = IWRITE + 1 
DO 20 I = l.ISIZE 
DUMMY ( I ) = CP( I,N) 

20 CONTINUE 

SAVE THE DATA 

WRITE ( 1' I WRITE ) DUMMY 
30 CONTINUE 
RETURN 
END 



SUBROUTINE BCPICH( XCG,CREF ,XI ? DEL 2 EPS ,BETA ,C ,KK , THETA, THS 
1 N W , I W , N J , I J , NNT , NMAX , NROWS , N ) 

THIS SUBROUTINE DEFINES THE BOUNDARY CONDITIONS FOR 
THE PITCHING RATE DERIVATIVE FUNDAMENTAL CASE 

DIMENSION XI ( 600 ) ,DEL< 600 ) ,C< 90 ) ,KK( 600 ) 

DIMENSION NW( 90 J>IWI90 ) ,NJ( 90 ) , I J( 90 l 

DIMENSION EPS) 600,10 ) ,B£TA( 600,10 ), THETA) 90 , 10 ) ,THS( 90 , 10 ) 
DIMENSION TST ( 90 > 10 ) ,HL ( 90 , 10 ) 

DEFINE THE CAMBER ANGLES WHICH RESULT FROM PITCHING 
DO 20 I = 1 >NWT 
KKI = KK( I ) 

10 EPS) I ,N ) = 2.00 * ( XI ( I ) + ( DE L( I )/2 . 0 )*C ( KKI )-XCG ) / CREF 
BETA) I,N) = 0.00 
20 CONTINUE 

I F ( NWT .EQ. NMAX) GO TO 50 
NWT 1 = NWT + 1 
DO 90 I = NWT 1 , NMAX 
30 EPS) I ,N ) = 0.00 
BETA) I ,N ) = 0.00 
90 CONTINUE 

DEFINE THE JET ANGLES WHICH RESULT FROM PITCHING 
50 DO 70 K = 1, NROWS 
60 THETA) K ,N ) = 0.00 
IJK = I J) K ) 

IF(NJ)K) .GT. 0) THETA) K ,N ) = 2.00 * (XI(IJK) - XCG) / CREF 
THS) K >N ) = 0.00 
TST < K >N ) = 0.00 
HL(K,N ) = 0.00 
70 CONTINUE 
RETURN 
END 



,TST,HL> 
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SUBROUTINE BCROLL( EPS ,BET A , THETA >THS ,TST ,Y , 

1 NW , NWT , NMAX , NROWS , NCASES ) 

THIS SUBROUTINE DEFINES THE BOUNDARY CONDITIONS FOR 
THE ROLLING RATE DERIVATIVE FUNDAMENTAL CASE 

DIMENSION EPS! 600 > 10 ) ,BETA< 600 , 10 ) ,THETA( 40,10) ,THS< 40,10), 
1 TST (40,10) 

DIMENSION Y ( 40 ) ,NW( 40 ) 

DEFINE THE TWIST AND CAMBER ANFLES WHICH RESULT FROM ROLLING 
N = NCASES 
1 = 0 

DO 40 K = 1 , NROWS 
10 TST ( K *N ) = Y(K ) 

THETA(K,N) = TST ( K ,N ) 

THS(K,N) = 0.00 
NWK = NW( K ) 

DO SO L = 1 ,NWK 
1 = 1 + 1 

20 EPS( I ,N ) = TST ( K ,N ) 

30 CONTINUE 
40 CONTINUE 

DEFINE THE ANGLES ON THE JET 
I F ( NMAX .EQ. NWT ) RETURN 
NWT1 = NWT + 1 
DO 60 I = NWT 1, NMAX 
50 EPS( I ,N ) = O.OO 
60 CONTINUE 
RETURN 
END 



SUBROUTINE BCYAW { EPS , BETA , THETA ,THS ,Y ,KK , 
1 NWT , NMAX , NROWS , NCASES ) 



C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 



THIS SUBROUTINE DEFINES THE BOUNDARY CONDITIONS FOR ALL OF THE 
YAWING RATE DERIVATIVE FUNDAMENTAL CASES 

COMMON /DERIV/ U0( 40 ) ,CLQ ,CMQ ,CMQMC 

DIMENSION EPS ( 600,10 ) -.BET A ( 600 , 10 ) ,THETA( 40 , 10 ) ,THS( 40 , 10 ) 
DIMENSION Y( 40 ) ,KK( 60u ) 

DEFINE THE SECTIONAL NORMALIZED VELOCITY INDUCED BY YAWING 
DO 10 K = 1 > NROWS 
UOf K ) = Y(K) / 57.295779 
10 CONTINUE 

DEFINE THE ANGLES FOR ALL FUNDAMENTAL CASES 
DO 80 N = 1, NCASES 
DO 30 I = 1 ,NWT 
KKI = KK l I ) 

20 EPS( I ,N ) = -UO(KKI) * EPS(I,N) 

BETA! I ,N ) = 0.00 
30 CONTINUE 

DO 50 K = 1, NROWS 

40 THETA(K,N) = -UOIK' * THETA(K,N) 

THSIK,N ) = 0.00 
50 CONTINUE 

IF (NMAX .EQ. NWT) GO TO 80 
NWT 1 = NWT + 1 
DO 70 I = NWT 1, NMAX 
60 EPS( I ,N ) = 0.00 
BETA(I,N) = 0.00 
70 CONTINUE 
80 CONTINJE 
RETURN 
END 

OVERLAY ALPHA 

INSERT STAGE 1 ,SGMAIN ,INPTS, INPUT J ,XLETR1 ,XLETR2 ,N0RM1 ,BOXS 

INSERT INCASE, BEECEE,0UT1, INCOMP, BLOWIN,BOXJ, TANS 

INSERT FCASE 1 ,SG1 

OVERLAY ALPHA 

INSERT STAGE2 

OVERLAY BETA 

INSERT STGCD,DWNWSH,EVD1,EVD2,EVD3,EVD4,SHUFL1,SHUFL2, HINGE 
INSERT COLUMl,COLUM2,PREP 
OVERLAY BETA 

INSERT STG2S >MATRIX,SAVE ,GETT ,BAKSUB ,SOLV2 
OVERLAY ALPHA 

INSERT STAGE3 ,STG3FC ,STG3FS ,STG3FT,STG3C , EXPLE ,EXPH1 ,EXPH2 
INSERT SLOAD ,SLOADX ,SLOADG >T LOAD ,TLOADO LOADX ,T RE FTZ , TABLE 
INSERT FUNDER ,COMDER ,SUMIT1 ,SUMIT2 , STABLE 
INSERT LOAD 1 , LOAD 2 , LOAD3 , L0AD4 , L0AD5 , LOAD6 
OVERLAY ALPHA 



INSERT STAGE4,0UT 2 >SAVECP ,BCPICH ,BCROLL , BCYAW 



C** ONR SAMPLE CASE 


*** RECTANGULAR 


WING CMU = 


1 WITH 


C4.500 




4.500 


1.000 


0.250 


0.250 




C4 3 0 0 


0 


2 11 










CO. 9750 
Cl 1 2 1 




0.88750 


0.68750 


0.2750 






C5 6 
CO. 000 




0.100 


0.200 


0.500 


0.900 




CO. 000 




0.100 


0.200 


0.500 


0.800 


0.900 


C4.500 
Cl 1 1 1 
C4 




0.000 


1.000 








Cl. 000 
CO 0 1 0 


0 


1.100 


1.500 


3.000 







WITH STABILITY DER 
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1.000 



1.000 



Cl. 000 1.000 

CO 0 0 0 1 
CO 0 1 0 

CO. 9000 0 1.000 

Cl 0.00 2 10.00 3 10.00 

C9 

Cl. 000 1.000 1.000 

C9 



1.000 



noon nonnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn 



PROGRAM JETFLAPIN LISTING 



PROGRAM JETFLAPIN 

*** JETFLAPIN INPUT PROGRAM DEVELOPED BY J.A. CAMPBELL ( AUG88 ) *** 

*** PROGRAM DESIGNED TO RUN UNDER FORTRAN 77 ON THE MICROVAX/2000 *** 
FINAL UPDATES MADE 14 SEP 88 - ( JAC ) 

THIS PROGRAM IS USED INTERACTIVELY TO PRODUCE AN INPUT FILE FOR THE 
EVD JET WING COMPUTER PROGRAM, JETFLAP. THE JETFLAP PROGRAM CALLS 
THE FILE CREATED BY THIS PROGRAM AND WILL PROVIDE THE FOLLOWING 
FOR WINGS OF ARBITRARY PLANFORM - 

1. SPANWISE AND CHORDWISE LOADING 

2. SPANWISE VARIATION OF INDUCED DRAG 

3. A CAPABILITY TO INVESTIGATE THE EFFECTS OF - 

A. PART SPAN FLAPS 

B. PART SPAN BLOWING 

C. ROLLING, YAWING, PITCHING AND SIDESLIP 

4. TOTAL LIFT AND INDUCED DRAG (TREFFTZ PLANE METHOD), 
PITCHING, YAWING AND ROLLING MOMENTS, ETC. 

COMPLETE DOCUMENTATION OF THE EVD JET WING LIFTING SURFACE THEORY 
AND THE ASSOCIATED COMPUTER PROGRAM ARE CONTAINED IN DOUGLAS REPORT 

J5519 — A THEORETICAL METHOD FOR CALCULATING THE 
AERODYNAMIC CHARACTERISTICS OF ARBITRARY JET FLAP WINGS 

VOLUME I 

THE ELEMENTARY VORTEX DISTRIBUTION JET-WING 
LIFTING SURFACE THEORY 

VOLUME II 

EVD JET-WING COMPUTER PROGRAM USERS MANUAL 

******************************************************************** 
INTEGERS LUNI 

INTEGER*2 INFI LE_SIZE , IOFI LE_SIZE 
INTEGER STATUS , NANS 
CHARACTER*20 INFILE ,OUTFI LE 
CHARACTERS CHECK 
LOGICAL EXIST 

CONMON/MATHEH/NCASES ,ISYMM > IPRINT , JETFLG ,IGTYPE » I HINGE 
COMMON/MARK/NROWS ,NRuWSJ ,NWT ,NJT ,NMAX,NW( 40 ) ,NJ( 40 ) ,IW( 40 ),IJ( 40 ) 
COMMON/ LUKE/ TITLE ( 20 ) 

COMMON/ JOHN/ ARE A , SPAN ,ARATIO , TR , SWEEP ,CREF,CMAC ,CBAR ,XMC ,XCG 
COMMON/SPIRIT/ NEWMAX ,NEWCMU,NOAlFA , LOGIC ,IR 

COMMON/INDATA/ARE, SPA, CRE ,XM,CMA,XC ,NRO ,NC ,ISY ,IPR , JET ,IGT ,IHI 
COMMON/GEOM1/Y ( 40 I, CHORD ( 40 ) , DELTA( 40 ) ,XB( 600), XI ( 600 ) , DE L( 600 ) , 

1 D(40 ),KK( 600 ),ITYPE( 600 ) 

COMMON/GECM2/XLEAD ( 40 ) , XTRAI L l 40 ) , TANLE ( 40 ) ,TANTE ( 40 ) 

COMMON/FCASE 2/TWIST (40,10 ) ,HL( 40 ,10 ) ,DJ( 40 ) >ACTE( 40 ), AC ( 20,40 ), 

1 XHB( 4,40 ) ,BET( 4 ,40 )»IrSt4,40 ) ,ICT( 40 ) ,IHT( 40 ) ,NCT ,NHT 

COMMON/FCASE 3/E PS ( 600,10 ) ,BETA( 600,10 ) ,THETA( 40 , 10 J ,THS( 40 ,10 ) 
COMMON/ JC ASE /CMU ( 40 ) , OmUP ( 40 ) , CNUP P l 40 J 
COMMON/SOLVl/B( 600,10 ) 

COMMON/COMPOS/FA CT0R( 10,24 ),NCC 

COMMON/DERI V/UO( 40 ) ,CLQ,CMQ,CMQMC 

COMMON/INDAT/LUN 

DATA CHECK/' 9 V 

DATA LUN/7/ 

CALL _ LIBRARY ROUTINE~TO CLEAr’tHE SCREEN^ THEN PRINT HEADER 
TITLE PAGE AND INSTRUCTIONS 

~”call~c[rscrn~" 

PRINT * 

PRINT *, ' PROGRAM JETFLAPIN : VERSION 1 : 6 AUGUST 88 ■ 

PRINT * 

PRINT *, ' THIS PROGRAM DEVELOPS THE INPUT FILE REQUIRED BY' 

PRINT *, ' THE EVD JET-WING COMPUTER PROGRAM, JETFLAP. ' 

PRINT * 

PRINT *, ' DOUGLAS AIRCRAFT COMPANY CREATED PROGRAM JETFLAP:' 

PRINT *, * THE ELEMENTARY VORTEX DISTRIBUTION (EVD) JET-WING' 

PRINT *, ' COMPUTER PROGRAM FOR DETERMINING THE AERODYNAMIC' 

PRINT *, * CHARACTERISTICS OF ARBITRARY JET FLAPPED WINGS' 

PRINT * 

PRINT *, ' A SIGNIFICANT AMOUNT OF INFORMATION REGARDING' 

PRINT *, ' YOUR WING PLANFORM IS REQUIRED BY THIS PROGRAM.' 

PRINT *, ' IF YOU HAVE NOT READ THE USERS MANUAL, YOU ARE' 

PRINT *, ' ENCOURAGED TO ANSWER NO TO THE FOLLOWING QUESTION' 

PRINT *, 1 AND RETURN WITH YOUR PREPARED PLANFORM DATA.' 

PRINT * 

C 

1 WRITE (6,1241) 

CALL QUERY (NANS) 

IF (NANS .EQ. 1) THEN 
GO TO 2 

ELSE I F ( NANS .EQ. 2 )THEN 
GO TO 110 
ELSE 

WRITE (6,1242) 

GO TO 1 
END IF 

6410 FORMAT ( IX, •======-============================================= 

! = = = = = = = = = = === = ====== = = = = = = =■ ) 

6440 FORMAT ( //,8X, ' ENTER DATA FOR THE JETFLAP PROGRAM IN FREE FORMAT. 
l',/,8X, ' AFTER EACH QUESTION THE FORMAT IS GIVEN: (R) - REAL,' 
2,2X,'(I) - INTEGER. ' ,/,8X, 'EXAMPLE : (R,R) INPUT 2.9,6.789 ', 
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3' OR ( I ) INPUT 5' ,//) 

1241 FORMAT (IX, 1 DO YOU NISH TO RUN THIS PROGRAM? 1 = YES*2 2 NO*) 

1242 FORMAT (IX,' INVALID RESPONSE - REENTER 1 ) 

C FOLLOWING LINES OPEN THE INPUT FILE TO~BE "crEatEd 
C 

2 CONTINUE 
CALL CLRSCRN 
PRINT * 

PRINT * 

PRINT *, ' (ENTER 449 TO EXIT.)' 

STATUS = LIBSGET INPUT (OUTFILE, 

2 1 ENTER NAME OF OUTPUT FILE TO CREATE 
2 IOFILE SIZE ) . . 

C CHECK TO SEE IF THE FILE EXISTS BEFORE CREATING IT 
IF (OUTFILE .EQ. '949' ) GO TO 1 

INQUIRE (FILE = OUTFILE (l:IOFILE SIZE), EXIST = EXIST) 

IF ( EXIST ) THEN 
PRINT * 

PRINT *, ' THAT FILE ALREADY EXISTS.' 

WRITE (6,1243 ) 

PRINT *, ' (OR ENTER 999 TO RETURN TO EXIT OPTION).' 

PRINT * 

3 CALL QUERY (NANS) 

ELSE 

GO TO 4 
END IF 

IF (NANS .EQ. 

GO TO 4 
ELSE I F ( NANS .EQ. 2 )THEN 
GO TO 2 

ELSE I F ( NANS .EQ. 999)THEN 
GO TO 1 
ELSE 

WRITE (6,1242) 

GO TO 3 
END IF 

1243 FORMAT (IX,' DO YOU WISH TO OVERWRITE THIS FILE? 1 = YES*2 = NO') 

C OPEN FILE THAT BECOMES INPUT FILE FOR PROGRAM JETFLAP 

4 OPEN ( UNIT =LUN , 

2 FILE= OUTFILE, 

2 ORGANIZATION 2 'SEQUENTIAL', 

2 ACCESS 2 'SEQUENTIAL', 

2 RECORDTYPE 2 'VARIABLE', 

2 FORM 2 'FORMATTED', 

2 STATUS 2 'UNKNOWN') 

C 

C INFORM USER OF DESIRED INPUT FORMATS AND ENTER FIRST LINE INPUT DATA 
C FIRST LINE INPUT DAT A--THE PROBLEM TITLE FOR THIS CASE 

c 

8 CALL CLRSCRN 
WRITE (6,6410) 

WRITE (6,6440) 

WRITE (6,6410) 

WRITE (6,6450) 

WRITE ( 6 »64b0 ) 

READ (5,1000, END=100 ) TITLE 

6450 FORMAT ( IX , ' ************************** JETFLAP INPUT PARAMETERS 

1 ' ^fc^************^********** • ,/ ) 

6460 FORMAT (1X,28H==> ENTER THE PROBLEM TITLE :,/ ,5X , 20H( 80 LETTERS MAX 
II MUM I ) 

1000 FORMAT (20A4) 

1001 FORMAT ( IX , 20A4 ) 



The OUTPUT file 
Prompt 

Filename size 



1 ) THEN 



SUMMARY OF FIRST LINE OF INPUT DATA 



CALL CLRSCRN 
WRITE (6,570) 

570 FOPMAT (IX, 'SUMMARY OF FIRST LINE OF INPUT DATA?', 

1/ , IX , 25H 22 > ENTER 1 2 YES* 2 = NO) 

CALL QUERY (NANS) 

IF (NANS.GE.2) GO TO 10 
WRITE (6,571) 

WRITE (6,1001 ) TITLE 
WRITE (6,575) 

CALL QUERY (NANS) 

IF ( NANS. EQ. 1 I GO TO 8 

571 FORMAT (1X,7X,'THE TITLE CARD FOR THIS DATA IS:') 

575 FORMAT (//,1X,' DO YOU WISH TO CHANGE FIRST LINE OF INPUT DATA?', 
1/ , IX > 25H==> ENTER 1 2 YES* 2 2 NO ) 

10 CONTINUE 
C WRITE DATA TO FILE 

WRITE ( LUN,1000) TITLE 



SECOND LINE INPUT DATA--GENERAL PLANFORM PARAMETERS 

READ GENERAL GEOMETRY CONTROL DATA 
CALL CLRSCRN 

PRINT *, '==> ENTER THE WING AREA, IN UNITS OF SPAN**2.' 

PRINT *, ' IF SPAN IS IN FEET, ENTER AREA IN SQUARE FEET . ( R ) ' 
READ ( 5 ,* ) AREA 
PRINT * 

PRINT *, '==> ENTER THE WING SPAN SEEN BY THE FREESTREAM' 

PRINT *, ' VELOCITY. USE ANY DESIRED UNITS.(R)' 

READ (5,*) SPAN 
PRINT * 

’==> ENTER CREF, THE WING REFERENCE CHORD. THIS WILL BE* 

' USED FOR NORMALIZING VARIOUS AERODYNAMIC COEFFICIENT 



PRINT *, 
PRINT *, 
+S. ’ 

PRINT *, 
PRINT *, 



USE THE SAME UNITS AS SPAN. IF YOU ENTER ZERO,' 
THE MEAN AERDYNAMIC CHORD WILL BE USED.(R)' 
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READ (5,*) 
PRINT * 
PRINT *, ' = 
+ILL BE 1 
PRINT *, ' 
PRINT *, ' 
READ (5,*) 
PRINT * 
PRINT 
+URED 
PRINT 
+ E ' 

PRINT 
+S' 

PRINT 
PRINT 
PRINT 
PRINT 



CREF 

=> ENTER XMC, THE POINT ABOUT WHICH PITCHING MOMENTS W 

TAKEN, MEASURED FROM THE WING APEX (ORIGIN).' 

USE THE SAME UNITS AS SPAN.(R)' 



*> ' = 



*> 

*> 

*> 

* 



XMC 

=> ENTER XCG , THE WING CENTER OF GRAVITY LOCATION, MEAS 

FROM THE WING APEX (ORIGIN). THIS WILL BE USED AS TH 

PITCHING AXIS FOR COMPUTING THE STABILITY DERIVATIVE 

DUE TO PITCHING. SAME UNITS AS SPAN.(R)' 

NOTE: THIS VALUE IS REQUIRED IF IDERIV IS NON-ZERO. ' 
IF STABILITY DERIVATIVES NOT REQUIRED, ENTER 0.' 



READ ( 5 ,* ) XCG 



SUMMARY OF SECOND LINE INPUT DATA 



CALL CLRSCRN 
WRITE (6,530) 

FORMAT ( IX , ' SUMMARY OF SECOND LINE OF INPUT DATA?’, 

1/ * IX , 25H==> ENTER 1 = YES> 2 = NO) 

CALL QUERY (NANS) 

IF (NANS.GE.2) GO TO 20 
WRITE (6,581) 

WRITE (6,582) AREA, SPAN, CREF , XMC , XCG 
WRITE (6,590) 

CALL QUERY (NANS) 

IF (NANS.EQ.l ) GO TO 10 

FORMAT ( IX, 5X, ' AREA ' ,7X, 'SPAN’ ,7X> ’CREF' ,7X, ’XMC' ,8X, 'XCG* ) 
FORMAT ( IX, 5( lX,F10.3 ) ) 

FORMAT ( // , IX ,3iHCHANGE SECOND LINE OF INPUT DATA?, 



580 



581 

582 
590 

20 



1/,1X,25H==> ENTER 1 = YES> 2 = NO ) 
CONTINUE 



C WRITE DATA TO FILE 

WRITE ( LUN ,40 ) AREA, SPAN, CREF, XMC, XCG 
4D FORMAT ( 5FlO . 4 ) 



THIRD LINE INPUT DATA--GENERAL CONTROL PARAMETERS (FLAGS) 

ca[[”clrscrn 

PRINT *, '==> ENTER NROWS, THE NUMBER OF SPANNISE SECTIONS THE WIN 

PRINT *, ’ IS DIVIDED INTO. REQUIREMENT : ( 3 . LE .NROWS. LE .40 ) • ( I ) ' 
READ (5,*) NROWS 
PRINT * 

PRINT *,'==> ENTER NCASES, THE TOTAL NUMBER OF FUNDAMENTAL CASES.’ 
PRINT NCASES MUST BE ONE MORE THAN THE NUMBER OF CASES FOR' 

PRINT WHICH DATA INPUT WILL BE GIVEN TO ALLOW FOR THE ANGLE 

PRINT *, * OF ATTACK CASE. REQUIREMENT :( 1 . LE . NCASES . LE . 10 ).( I ) ' 
READ (5,*) NCASES 
PRINT * 

PRINT *, ’==> ENTER ISYMM , THE X-AXIS SYMMETRY INDICATOR FLAG. (I)’ 
PRINT *, ' =0 WINS AND JET ARE SYMMETRIC.’ 

PRINT *, ’ >0 WING OR JET ARE NON-SYMMETRIC . ’ 

PRINT *, ' <0 WING AND JET ARE ANTI-SYMMETRIC.’ 

READ (5,*) ISYMM 
PRINT * 

PRINT *, ’==> ENTER IPRINT, THE PRINTED OUTPUT CONTROL FLAG. (I)' 
PRINT *, ' >1 PRINT GEOMETRY DETAILS AND TOTAL AERO COEFFS.' 

PRINT *, ’ = 1 IN ADDITION, PRINT SPANWISE LOADING.' 

PRINT *, ' =0 IN ADDITION, PRINT CHORDWISE LOADING.' 

PRINT *, ’ < D IN ADDITION, PRINT ALL MATRICES, BACK SUBSTI-' 

PRINT *, ' TUTIGN CHECK AND OTHER DETAILS. (RESERVED FOR' 

PRINT *, ’ TROUBLESHOOTING-VERY LARGE AMOUNTS OF OUTPUT.)' 

READ (5,*) IPRINT 
PRINT * 

PRINT *, '==> ENTER JETFLG , THE JET INDICATOR FLAG. (I)’ 

PRINT *, ' *** WARNING: THIS VERSION NOT TESTED FOR JET INPUTS.**' 
PRINT *, ' =0 THERE IS A JET SHEET.' 

PRINT *, ' =1 THERE IS NO JET SHEET. NO JET INPUTS WILL BE RE 

+ AD . ' 

READ (5,*) JETFLG 
PRINT * 

==> ENTER IGTYPE , THE WING PLANFORM GEOMETRY INDICATOR F 



PRINT *, 

+ LAG . ( I ) * 

PRINT *, ’ =1 

+IONAL ' 

PRINT *, ’ 

+EAD ' 

PRINT *, ’ 

PRINT *, * =2 

PRINT *, ' 

READ (5,*) IGTYPE 
PRINT * 



WING PLANFORM IS COMPLETELY ARBITRARY, AND SECT 

LEADING AND TRAILING EDGE COORDINATES WILL BE R 

TO DEFINE THE PLANFORM.’ 

WING PLANFORM IS TRAPEZOIDAL 



PLANFORM INPUT WILL BE READ. 



AND SIMPLIFIED’ 



PRINT *, '==> 

PRINT *, ' =0 

+ENTS . ' 

PRINT *, ’ >0 

♦ THIS ’ 

PRINT *, ’ 

+E ’ 

PRINT *, ' 

READ (5,*) I HINGE 
PRINT * 

PRINT *,’==> ENTER IDERIV, THE DYNAMIC STABILITY DERIVATIVE FLAG 



ENTER IHINGE , THE HINGE EVD INDICATOR FLAG . ( I ) ' 

~ REGULAR EVD ONLY WILL BE USED ON ALL HINGE ELEM 

HINGE EVD WILL BE USED ON ALL HINGE ELEMENTS. 

OPTION IS NOT PERMITTED FOR USE IN COMPUTING TH 

DYNAMIC STABILITY DERIVATIVES (IDERIV>0).’ 
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PRINT *, ' = 0 

PRINT *, ' 

PRINT *> ' > 0 

PRINT *, ' 

READ (5,*) IDERIV 
PRINT * 



A BASIC RUN WILL BE EXECUTED WITH NO STABILITY' 
DERIVATIVES COMPUTED.' 

A BASIC RUN WILL BE EXECUTED FOLLOWED BY A' 
DYNAMIC STABILITY DERIVATIVE RUN.' 



SUMMARY OF THIRD LINE INPUT DATA 



CALL CLRSCRN 
WRITE (6,600) 

600 FORMAT ( IX, 'SUMMARY OF THIRD LINE OF INPUT DATA?', 

1/ , IX » 25H==> ENTER 1 = YES) 2 = NO ) 

CALL QUERY (NANS) 

IF ( NANS.GE . 2 ) GO TO 30 
WRITE (6,601 ) 

WRITE (6,602) NROWS ,NCASES ,ISYMM ,IPRINT 
WRITE (6,603) 

WRITE (6,602) JET FLG , IGTYPE , I HINGE , IDERIV 
WRITE (6,604) 

CALL QUERY (NANS) 

IF (NANS.EQ.l ) GO TO 20 

FORMAT ( IX, 'NROWS' ,2X, 'NCASES' ,1X, ' ISYMM ' ,2X, 'IPRINT' ) 
FORMAT ( IX, 4( 2X,I2,2X),/) 

FORMAT ( IX, ’JET FLG* , IX , 'IGTYPE ' ,1X, 'I HINGE ' , IX, 'IDERIV' ) 
FORMAT ( // , IX >32HCHANGt THIRD LINE OF INPUT DATA?, 

’ ‘ ' 2 = NO) 



601 

602 

603 

604 

30 



1/,1X.25H==> ENTER 1 = YES) 

CONTINUE 
WRITE DATA TO FILE 

WRITE ( LUN,41) NROWS ,NCASES> ISYMM , IPRINT , 

1 JET FLO, IGTYPE, IHINGE, IDERIV 

41 FORMAT ( 1012 ) 



ARE 

SPA 

CRE 

XM 

XC 

NRO 

NC 

ISY 

IPR 

JET 

IGT 

IHI 



AREA 

SPAN 

CREF 

XMC 

XCG 

NROWS 

NCASES 

ISYMM 

IPRINT 

JETFLG 

IGTYPE 

IHINGE 



C DETERMINE WHICH TYPE OF RUN IS DESIRED 
IF( IDERIV .NE. 0) GO TO 60 
C 

C A REGULAR RUN WILL BE EXECUTED 
50 CALL APPLY1 

GO TO ( 60 , 70 , 100 ,120 ), IR 

C A STABILITY DERIVATIVE RUN WILL BE EXECUTED 
oO CALL APPLY2 

IF ( IR .EQ. 2 ) GO TO 120 
C 

C********************************************** ************************* 

c 

C PRINT COMPLETION MESSAGE FOR THIS RUN AND GO BACK TO BEGIN A NEW RUN 
70 WRITE 1 6 , SO ) 

80 FORMAT ( 1H0//// 32X,10( 5H***** ) , 3H***/ 32X, 

1 53H* THE PROGRAM HAS REACHED NORMAL TERMINATION */ 

2 32X,10(5H*****),3H*** ) 

C PUT IN AN OPTION TO DO ANOTHER RUN OR PRINT A '9' CARD AND QUIT.*** 



READ( 5 , 20, END = 100 ) TITLE 
90 I F ( TITLE ( 1 ) .EQ. CHECK) GO TO 10 
GO TO 30 



PRINT *, '==> DO YOU WISH TO ENTER ANOTHER SET OF DATA? (Y OR N)' 
90 READ ( 5 , ' ( A1 ) ' ) AN3 
IF ( ANS.EQ. ' Y ' ) THEN 
GO TO 4 

ELSE IF ( ANS.EQ. 'N' ) THEN 
WRITE ( LUN , 1010 ) CHECK 
ELSE 

PRINT *, ' INVALID RESPONSE - REENTER.' 

GO TO 90 
END IF 
PRINT * 

1010 FORMAT (A4) 

C 

C PRINT COMPLETION MESSAGE AND STOP EXECUTION 
100 WRITE ( 6 , 80 ) 

110 STOP 
C 

c********************************* ******* ******************************* 

C A FATAL ERROR HAS OCCURED. PRINT FINAL MESSAGE AND STOP EXECUTION. 
C************************************ ********* ************************** 
120 WRITE l 6 , 130 ) 

130 FORMAT ( lH0////62X,2( 4H**** )/31X,ll( 5H***** )/ 

1 31X , 55H* THE PROGRAM HAS REACHED ABNORMAL TERMINATION */ 

2 31X,11(5H*****)/62X,2(4H****) ) 

140 STOP 

C *********************************************************************** 
END 

SUBROUTINE CLRSCRN 
C 
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LIBRARY ROUTINE TO CLEAR THE SCREEN. 



ISTAT = LIBSERASE PAGE (1,1) 

RETURN 

C*****H***************************************************************** 

END 

SUBROUTINE QUERY (NANS) 



ROUTINE TO TRAP ERRORS CAUSED BY IMPROPER RESPONSES TO QUESTIONS. 
THE COMPUTER GENERATES AND ERROR WHEN A CHARACTER IS SUPPLIED TO 
A QUESTION EXPECTING AN INTEGER OR REAL VALUE. 



.GT. 0) THEN 

CHARACTER VALUES ARE NOT VALID.' 
PLEASE ENTER A VALUE OF 1 OR 2.’ 



NQTEST = 0 
1 CONTINUE 
IF (NQTEST 
PRINT *> 

PRINT *, 

END IF 
NQTEST = NQTEST + 1 
READ ( 5,* , tRR=l )NANS 
RETURN 

C*********************************************************************** 

END 

SUBROUTINE APPLY1 



C 

C 

C 



THIS SUBROUTINE CONTROLS ALL ASPECTS OF INPUT FOR REGULAR CASES 

COMMON/MATHEW/NCASES , ISYMM ,IPRINT » JETFLGdGTYPE ,IHINGE 
COMMON/SPIRIT/ NEWMAX, NEWCMU, NOALFA, LOGIC, IR 
DECIDE WHETHER OR NOT THERE IS AN ALPHA CASE 
NOALFA = 1 
IR = 1 
LOGIC = 1 

IFdSYMM .LT. 0) NOALFA = 0 



INITIALIZE AND 
10 NEWCMU = 0 
20 NEWCMU = NEWCMU 



INCREMENT THE CMU CASE CONTROL COUNTER 
+ 1 



EXECUTE THE PROBLEM FORMATION STAGE 
30 CALL STAGE 1 

GO TO ( 40 ,60 ,70 ,80 ), IR 
40 CONTINUE 

THE PROGRAM HAS BEEN EXECUTED SUCESSFULLY 
GO BACK AND DO A NEW CMU CASE 
I F ( JETFLG .NE. 0) GO TO 60 
GO TO 20 



C**********************************^************************************ 

C THIS RUN HAS BEEN COMPLETED. RETURN TO START A NEW RUN. 

60 IR = 2 
RETURN 

C THIS RUN HAS BEEN COMPLETED. NO FURTHER RUNS FOLLOW. 

70 IR = 3 
RETURN 

C A FATAL ERROR HAS OCCURED. RETURN AND QUIT. 

80 IR = 4 
RETURN 

C*********************************************************************** 
END 

SUBROUTINE APPLY 2 



THIS SUBROUTINE CONTROLS ALL ASPECTS OF INPUT 
STABILITY DERIVATIVES 



FOR 



CHECK ON STATUS OF CONTROL FLAGS 
10 I HINGE = 0 
NOALFA =1 
NEWCMU = 1 

IFdSYMM .GE. 0) GO TO 30 
ISYMM = 0 
WRITE ( 6 » 20 ) 

20 FCRMAT( 1H0///16X ,41HTHE ISYMM FLAG INDICATED AN ANTI -SYMETRIC , 

1 48H CASE. HOWEVER, IT WILL BE TREATED AS SYMETRIC.) 

C EXCECUTE THE FIRST RUN 
C 

C FORMULATE THE PROBLEM AS USUAL 
30 CALL STAGE 1 

GO TO ( 40, 110, 100, 110), IR 
40 LOGIC = 1 
C 

C WRITE( 6 , 70 ) 

70 FORMAT ( \W\/ ////////// / 37X ,11( 4H**** ) , 2H** / 

1 37X,46H* SECOND RUN FOR STABILITY DERIVATIVE CASE * / 

2 37X ,11( 4H**** ) ,2H** ) 

C IF THIS IS A SYMETRIC WING, SWITCH IT TO ANTI-SYMETRIC FOR RUN 2 
80 IFdSYMM .EQ. 0) ISYMM = -1 
C 

c*********************************************************************** 
C THIS IS THE END OF THE LINE 
100 IR = 1 
RETURN 

C THE FOLLOWING LINE SHOULD NOT BE REACHED. INCLUDED FOR CONTINUITY. 

C A FATAL ERROR HAS OCCURED. RETURN ABNORMALLY TO MAIN. 

110 IR = 2 
RETURN 

C*********************************************************************** 

END 
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SUBROUTINE STAGE 1 

THIS SUBROUTINE READS THE GENERAL GEOMETRY PARAMETERS AND FLAGS, AND 
CONTROLS THE CALLING OF THE SPECIALIZED GEOMETRY SUBROUTINES 

COMMON/MATHEW/NCASES ,ISYMM ,IPRINT , JETFLG *IGTYPE »IHINGE 
COMMON/MARK/NRCWS,NROWSJ,NMT,NJT;,NMAX,NM) 40 ) ,NJl 40 ) ,IW( 40 ) ,1 J( 40 ) 
COMMON/SP I RI 1 / NEKMAX , NE WCMU , NOA L FA , LOGI C , I R 

CHECK WHETHER THIS IS THE FIRST CMU CASE 
I F ( NEWCMU .GT. 1 ) GO TO 50 

I F ( ( NROWS .GT. 40) .OR. ( NROWS . LT . 3)) GO TO 80 
SECTIONAL INPUT 

10 I F ( ( IGTYPE .EQ. 1 ) .OR. ( IGTYPE .EQ. 2 ))CALL SGMAIN) NOALFA , IR ) 

GO TO ( 20 , 40 , 100 ), IR 

USER INPUT ERROR 

PRINT ERROR MESSAGE BECAUSE IGTYPE HAS THE WRONG VALUE 
20 WRITE ) 6 2 30 ) IGTYPE 

30 FORMAT( 1H1///44X » 3 2HTHE IGTYPE FLAG HAS THE VALUE OF, 12/ 

1 44X , 37HONLY THE VALUES 1 OR 2 ARE ACCEPTABLE// 

2 44X , 15H PLEASE REENTER.) 

READ) 5 ) IGTYPE 

GO TO 10 

READ THE COMPOSITE CASE REQUIREMENTS 
40 CALL INCOMP ( NCASES»IR ) 

I F( IR .EQ. 2 ) GO TO 100 

READ THE CMU DATA 
50 CALL BLOWIN( JETFLG,IR) 

GO TO ) 60 , 110 > 120 ), IR 
60 CALL BOXJl NhWMAX >IR ) 

IFlIR .EQ. 2 ) GO TO 50 

RETURN NORMALLY TO THE CONTROL PROGRAM 
70 IR = 1 
GO TO 130 

PRINT ERROR MESSAGE B r CAUSE THE NROWS VALUE IS UNACCEPTABLE 
80 WRITE ( b ♦ 90 ) NROK 
90 FORMAT) 1H1/55X , 7 HNkOWS =,I3) 



C*********************************************************************** 
C A FATAL ERROR HAS 0CCURED. RETURN ABNORMALLY TO MAIN. 

100 IR = 4 

GO TO 130 

C RETURN TO MAIN AMD BEGIN A COMPLETELY NEW RUN 
110 IR = 2 

GO TO 130 

C RETURN TO MAIN AND STOP THE EXECUTION 
120 IR = 3 
130 RETURN 

C*********************************************************************** 

END 

SUBROUTINE SGMAIN) NOALFA , IR ) 



THIS SUBROUTINE CONTROLS ALL GEOMETRY CALCULATIONS FOR THE 
SECTIONAL GEOMETRY METHOD 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG, IGTYPE, IHINGE 

READ THE WING PLANFORM GEOMETRY DATA 
10 CALL INPTS(IR) 

IFt IR .EQ. 2 ) GO TO 100 
I F ( IGTYPE .EQ. 1) CALL XLETRl(IR) 

IF( IR .EQ. 2 ) GO TO 100 

IF) IGTYPE .EQ. 2) CALL XLETR2 

NORMALIZE THE WING PLANFORM GEOMETRY DATA 
20 CALL N0RM1 

READ THE JET SHEET GEOMETRY DATA 
30 CALL INPUTJ ( IR i 

I F) I R .EQ. 2) GO TO 100 

CONSTRUCT THE EVD ELEMENTS 
40 CALL BOXS) IR ) 

I F ) IR .EQ. 2) GO TO 100 

CONSTRUCT THE SET OF FUNDAMENTAL GEOMETRIC CASES 

DO 90 N = 1 ,NCASES 
LCASE = N 

READ THE GEOMETRY FOR THIS CASE 
50 CALL INCASE) LCASE, NOALFA) 

PRINT THE GEOMETRY AND CONSTRUCTED CASE DATA IF DESIRED 
IF) LCASE .EQ. 1) WRITE ( b , 70 ) 

70 FORMAT) 1H1) 

CALL CLRSCRN 
PRINT * 

PRINT *, '==> DO YOU WISH TO SEE THE CONSTRUCTED CASE DATA?’ 
PRINT *, ' ENTER (Y OR N)' 

75 READ ( 5 , 1 ( A1 ) ' ) ANS 
IF ( ANS.EQ. ' Y ' ) THEN 
GO TO 80 
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ELSE IF ( ANS.EQ. 'N* ) THEN 
GO TO 90 
ELSE 

PRINT *, ' INVALID RESPONSE - REENTER.' 

GO TO 75 
END IF 
PRINT * 

1010 FORMAT ( A A- ) 

C 

80 CALL OUTl(LCASE) 

90 CONTINUE 
IR = 2 
RETURN 

AN ERROR HAS OCCURED. RETURN ABNORMALLY TO STAGE1 . 

100 IR = 3 
RETURN 

*********************************************************************** 

END 

SUBROUTINE INPTS(IR) 

THIS SUBROUTINE READS THE WING GEOMETRY DATA FROM THE KEYBOARD 
FOR THE SECTIONAL GEOMETRY METHOD 

COMMON/MARK/NROWS,NROHSJ,NWT,NJT,NMAX,NW(40)>NJ(40) ,IW( 40 ) »I J( 40 ) 
COMMON/GEOM1/Y ( 40 ) , CHORD (40 ) , DELTA! 40 ) ,XB( 600 ) ,XI( 600 ), DEL! 600 ) , 

1 D( 40 ) *KK ( 600 ) ,ITYPE ( 600 ) 

COMMON/GEOM2/XLEADI 40 ) ,XTRAIL( 40 ) »T ANLE ( 40 ) ,TANTE ( 40 ) 

C OMMON/SG 1/XBW ( 20 , 10 ) ,XBJ( 20 , 10 ) ,ICTYPE ( 40 ) ,1 JTYPE( 40 ) , 

1 NWTYPE ,NJTYPE 

COMMON/INDAT/LUN 
DIMENSION NI ( 10 ) 

INPUT THE SECTIONAL PLANFORM DATA 
10 NWTYPE = _0__ 

*~SECTI0N*"CENTERLINE LOCATION CARDS 



CALL CLRSCRN 
PRINT * 

PRINT *, 
PRINT * 

PRINT *, 
PRINT *, 
PRINT *, ' 
PRINT * 

PRINT *, 
PRINT *, 
+INGS. ' 

PRINT *, 
PRINT * 

PRINT *, 
PRINT 



SECTION CENTERLINE LOCATION VALUES' 

= = > ENTER Y > THE SPANWISE DISTANCE FROM THE CENTERLINE » ' 

( X-AXIS )* TO THE SECTION CENTERLINE , NORMALIZED BY f 
THE HALF-SPAN, SPAN/2. REQUIREMENT: ( -1 . 0<Y<1 . 0 ) . ( R ) ' 

BEGIN AT THE RIGHT WING TIP AND WORK TOWARD:' 
a ) WING CENTERLINE FOR SYMETTRIC OR ANTISYMMETRIC W 

b) LEFT WING TIP FOR NON-SYMMETRIC WINGS.' 

A MAXIMUM OF 40 SECTIONS IS ALLOWED.' 



DO 15 K = 1 ,NROWS 
WRITE! 6,12 J K »NR0WS 
READ! 5, * ) Yl K 1 
12 FORMAT (IX, 

+/) 

PRINT x 
15 CONTINUE 



ENTER SECTION CENTERLINE ',12,' OF ',12,' SECTIONS. 



SUMMARY OF SECTION CENTERLINE INPUT DATA 



CALL CLRSCRN 
PRINT * 

PRINT *, 
PRINT * 

PRINT *, 
PRINT *, 
PRINT *, 
PRINT 
PRINT 



*** YOU ARE ENCOURAGED TO CHECK THIS DATA | *** ' 

IF THE SECTION CENTERLINE VALUES ARE NOT VALID' 

AN ERROR WILL BE DETECTED BY SUBROUTINE BOXS , ' 

THE PROGRAM WILL TERMINATE, AND YOU WILL HAVE TO' 
REENTER ALL YOUR DATA. THE CHOICE IS YOURS...' 



WRITE (6,13) 

13 FORMAT (IX, 'SUMMARY OF SECITON CENTERLINE INPUT DATA?', 

1/ , IX , 25H ==> ENTER 1 = YESi 2 = NO ) 

CALL QUERY (NANS) 

IF (NANS.GE.2) GO TO 20 
WRITE (6,14) 

WRITE (6,19) (K, Y(K ),K=l,NROWS) 

WRITE (6,16) 

CALL QUERY (NANS) 

IF (NANS.EQ.l ) GO TO 10 

14 FORMAT ( IX , 7X , 'THE SECTION CENTERLINE DATA IS:') 

16 FORMAT ( // , IX , 1 DO YOU WISH TO CHANGE/REENTER THIS INPUT DATA?', 
1/ , IX , 25H==> ENTER 1 = YESj 2 = NO ) 

20 CONTINUE 
WRITE DATA TO FILE 

WRITE ( LUN » 18 ) ( Y(K ),K = l,NROWS ) 

18 FORMAT ( 8FlO . 6 ) 

19 FORMAT( IX, 5X, 'SECTION =', 1 2 , 3X ,' CENTERLINE =',F10.6) 

WING SECTION TYPE CARDS 



CALL CLRSCRN 
PRINT * 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



WING SECTION TYPES' 



'==> ENTER ICTYPE, THE TYPE NUMBER OF EACH WING SECTION.' 

' THE ARRANGEMENT OF EVD ELEMENTS IN A ROW DETERMINES' 

' THE WING ROW TYFE . ANY SECTIONS HAVING THE SAME NUMB 
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23 



4ER ' 

PRINT *, 
♦ ION' 
PRINT *, 
+ PE 1 

PRINT *, 
PRINT * 
PRINT *, 
PRINT 
DO 24 



OF ELEMENTS, ALL WITH THE SAME SPACING FROM THE SECT 
LEADING EDGE ARE OF THE SAME ICTYPE. BEGIN WITH A TY 
1 AND WORK IN SEQUENCE, 2 , 3 ,...( ASCENDING ORDER). (I)' 
A MAXIMUM OF 10 SECTION TYPES IS ALLOWED.' 



K = 



1 ,NROWS 

WRITE (6,22) K,NROWS 
READI5, * ) ICTYPE(K) 

IF(ICTYPE(K) .GT. NWTYPE ) NWTYPE = ICTYPE(K) 

I F ( NWT Y P E .GT. 8) THEN 
WRITE (6,21) NWTYPE 

PRINT *, ' A MAXIMUM OF 10 SECTION TYPES IS ALLOWED.' 

PRINT *, ' ***** WARNING *****' 

PRINT *, ' YOU MAY ENTER ONLY ONE MORE DIFFERENT TYPE.' 

END IF 

21 FORMAT! IX ,5X > 26HNUMBER OF WING ROW TYPES =,I3) 

22 FORMAT! IX,' ENTER SECTION TYPE FCR SECTION ’,12,' OF ',12,' SECTI 
+ONS . ' ,/) 

24 CONTINUE 

SUMMARY "OF WINg’sECTION TYpE INPUT DATA 

""call'clrscrn"" 

WRITE (6,26) 

26 FORMAT (IX, 'SUMMARY OF WING SECTION TYPE INPUT DATA?', 

1/ » IX , 25K==> ENTER 1 = YESj 2 = NO) 

CALL QUERY ( NANS ) 

IF ( NANS. GE . 2 ) GO TO 25 
WRITE (6,27) 

WRITE (6,29) ( K, ICTYPE! K ) ,K = 1 ,NROWS ) 

WRITE (6,16) 

CALL QUERY (NANS) 

IF ( NANS. EQ. 1 ) GO TO 23 

27 FORMAT (1X,7X,'THE WING SECTION TYPE DATA IS:') 

29 FORMAT! IX, 5X, 'SECTION = ' , 1 2 , 3X , ' SECTION TYPE = ' ,12 ) 

25 CONTINUE 
WRITE DATA TO FILE 

WRITE! LUN, 301 ) ( ICTYPE ( K ) ,K=1 ,NROWS ) 

301 FORMAT ( 4012 ) 



NUMBER OF CHCRDWISE WING ELEMENTS CARD 



CALL CLRSCRN 
PRINT * 



CHORDWISE WING ELEMENTS’ 



' ==> ENTER NI, THE NUMBER OF CHORDWISE WING EVD ELEMENTS' 

' FOR EACH WING SECTION TYPE. THE NUMBER OF ELEMENTS M 

' BE ENTERED IN ASCENDING ORDER BY ICTYPE. THERE MAY B 

' FEW AS 2 ELEMENTS PER SECTION TYPE OR AS MANY AS 20. 



PRINT 
PRINT 
PRINT 
PRINT 
+UST ' 

PRINT 
+ E AS' 

PRINT 
+ (I)' 

33 PRINT * 

DO 30 N = 1, NWTYPE 
WRITE ( 6,32 ) N, NWTYPE 
28 READ ( 5 , * ) NI ( N ) 

NIN = NUN i 

I F ( ( NIN .LT. 2) .OR. (NIN .GT. 20)) THEN 
WRITE ( fa ,31 ) NIN 

PRINT *, ' A MINIMUM OF 2 AND A MAXIMUM OF 20' 

PRINT *, ' ELEMENTS ARE ALLOWED.' 

PRINT *, ' PLEASE REENTER' 

GO TO 28 
END IF 

31 FORMAT! IX, 5X,36HNUMBER OF ELEMENTS IN THIS SECTION =,I3) 

32 FORMAT! IX, * ENTER NUMBER OF EVD ELEMENTS FOR ICTYPE ',12,' OF ' ,1 

42,/) 

30 CONTINUE 

SUMMARY OF CHORDWISE WING ELEMENTS INPUT DATA 

CALL~CLRSCRN~~ 

WRITE ( fa ,3fa ) 

36 FORMAT ( IX, 'SUMMARY OF CHORDWISE WING ELEMENTS INPUT DATA?', 
1/,1X,25H==> ENTER 1 = YES> 2 = NO) 

CALL QUERY (NANS) 

IF (NANS.GE.2 ) GO "*0 35 
WRITE (6,37) 

WRITE (to, 39) (N, NI(N),N=1, NWTYPE ) 

WRITE (6,16) 

CALL QUERY (NANS) 

IF ( NANS. EQ . 1 ) GO TO 33 

37 FORMAT (1X,7X,'THE CHORDWISE WING ELEMENTS DATA IS:') 

39 FORMAT! IX, 5X, 'SECTION =', 12 ,3X, ' CHORDWISE ELEMENTS =',I2) 

35 CONTINUE 
WRITE DATA TO FILE 

WRITE! LUN , 301 ) ( NI ( N ) ,N=1 , NWTYPE ) 

READ THE CHORDWISE DIVISION DATA FOR EACH ROW TYPE 

WING CHORDWISE ELEMENT COORDINATES CARD 



CALL CLRSCRN 
PRINT * 

PRINT *, ' 

PRINT * 



WING CHORDWISE ELEMENT COORDINATES' 
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PRINT *, 

+01 NT. ' 

PRINT *, 

PRINT*, f 
PRINT *> 

PRINT *> 

+0N TYPE. 

PRINT *, 

♦NUMBER ' 

PRINT *> 

PRINT *> 

+ONATICALLY 
PRINT *, ' 

+ 1.0. IR)' 

PRINT * 

DO 50 N = 1 
NIN = NI(N) 

XBW( 1,N) =0.0 

DO 45 L = 2, NIN 
NRITE(6,42) N 



==> ENTER XBW, THE CHORDHISE COORDINATE OF EACH VORTEX P 



THE VORTEX POINT IS DEFINED AS THE LEADING EDGE FOR' 
LEADING EDGE EVD''S AND THE "PEAK" POINT FOR REGULAR,' 
HINGE AND JET EVD ' 'S. ' 

A SET OF COORDINATES IS REQUIRED FOR EACH WING SECTI 

THE NUMBER OF OF COORDINATES WILL CORRESPOND TO THE 

OF ELEMENTS ENTERED ON THE PREVIOUS CARD.' 

THE LEADING EDGE COORDINATE MUST BE 0.0 AND WILL AUT 



BE ENTERED FOR YOU. 
NWTYPE 



THE LAST VALUE MUST BE LESS THAN 



46 



WRITE (6,43 ) L,NIN 
READ( 5 , * ) XBW(L,N) 



XBNN = XBW(L,N) 

I F ( ( XBWN .LT. 0.0) .OR. ( XBWN .GE. 1.0)) THEN 
WRITE (6,41) XBWN 

PRINT *, ' COORDINATE VALUE MUST LIE BETWEEN 0.0 AND 1.0* 
PRINT *, ' PLEASE REENTER' 

GO TO 46 
END IF 
45 CONTINUE 

CALL CLRSCRN 
PRINT * 

PRINT *, ' *** LEADING EDGE VALUE OF 0.0 ENTERED FOR EVD', 

+ ' ELEMENT 1 *** ' 

50 CONTINUE 

41 FORMAT t 1X,5X,30HCHORDWISE ELEMENT COORDINATE =,F10.6) 

42 FORMAT ( IX, ' FOR WING SECTION TYPE NUMBER ',121 

43 FORMAT ( IX , ' ENTER CHORDWISE COORDINATE FOR EVD ELEMENT ' ,12 , 1 OF 

””sUMMARY~OF”cHORDWIsi "E lEmEnT "COORDINATE INPUt'dIta"" 

""call'clrscrn"" 

WRITE (6,47) 

47 FORMAT (lX,'SUMMARY OF ELEMENT COORDINATE INPUT DATA?', 

1/ * IX , 25H = = > ENTER 1 = YES> 2 = NO ) 

CALL QUERY (NANS) 

IF (NANS.GE.2) GO TO 60 
54 CALL CLRSCRN 

WRITE (6,48) NWTYPE 
READ (5,*) NSEC 

WRITE (6,49) ( L ,XBW( L ,NSEC ) , L = 1 ,NI ( NSEC ) ) 

WRITE (6,16) 

CALL QUERY (NANS) 

IF ( NANS . EQ . 1 ) THEN 
N = NSEC 
NIN = NI(N) 

XBN ( 1 ,N ) = 0.0 
DO 55 L = 2 *NIN 

WRITE( 6,42 ) NSEC 
WRITE ( 6 ,43 ) L ,NIN 
56 READ( 5, * ) XBW(L,N) 

XBWN = XBW(L,N) 

I F ( ( XBWN .LT. 0.0) .OR. (XBWN .GE. 1.0)) THEN 
WRITE (6,41) XBWN 

PRINT *, ' COORDINATE VALUE MUST LIE BETWEEN 0.0 AND 1.0' 
PRINT *, ' PLEASE REENTER' 

GO TO 56 
END IF 



55 



CONTINUE 
GO TO 50 



ELSE 

PRINT *, ' DO YOU WISH TO CHECK ANOTHER SECTION? 

PRINT ' ==> ENTER 1 = YES > 2 = NO ' 

CALL QUERY (NANS) 

IF (NANS.EQ.1J GO TO 54 
CONTINUE 
END IF 

48 FORMAT ( IX , 7X 2 ' WHICH SECTION TYPE DO YOU WANT TO LOOK AT?' 
1, /, IX, 7X, 'ENTER A VALUE BETWEEN 1 -- - * 



AND 



12 ,'. • ) 



L yf LIN I Lfv M VALUC 

49 FORMAT ( IX ,5X ,' ELEMENT NUMBER = ' ,12 ,3X , 'COORDINATE =',F10.6) 

60 CONTINUE 

DEFINE THE NUMBER OF CHORDWISE DIVISIONS FOR EACH ROW, USED LATER 
DO 70 K = l.NROWS 
ICK = ICTYPE(K) 

NW( K ) = NI( ICK) 

70 CONTINUE 
WRITE DATA TO FILE 
DO 80 N = 1, NWTYPE 
NIN = NI(N) 

WRITE) LUN, 18 ) ( XBW( L ,N ) ,L=1 ,NIN ) 

80 CONTINUE 

IR = 1 
RETURN 

*********************************************************************** 

END 

SUBROUTINE INPUTJ(IR) 

THIS SUBROUTINE READS THE JET ELEMENT GEOMETRY INPUT 
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THE NUMBER AND CHORDWISE SPACING OF THE JET ELEMENTS ARE READ 

COMMON/MATHEW/NCASES >ISYMM,IPRINT , JETFLG ,IGTYPE , I HINGE 
COMMON/MARK/NRO' JS , NROWSJ ,NWT ,NJT ,N,‘1AX,NW( 40 ) ,NJ) 40 ) , IW) 40 ) ,1 J( 40 1 
COMMON/SG1/XBW) 20,10) ,XBJ( 20,10 I , ICTYPE ) 40 ) ,IJTYPE( 40 ) , 

1 NHTYPE ,NJTYPE 

COMMON/I NDAT/LUN 
DIMENSION NI(10) 

READ THE TYPE OF DIVISION FOR EACH ROW 
10 NJTYPE = 0 
NROWSJ - 0 

I F ( JETFLG .NE. 0) GO TO 90 

'Jet’section’type "cards"" 



CALL CLRSCRN 
PRINT * 

PRINT *, * 
PRINT * 

PRINT *, 
PRINT *, 
PRINT * 

PRINT *, 

+NES ' 

PRINT *, 

+ UMBER ' 

PRINT *, 

+ > ' TO ' 

PRINT ** 

+ , ' ARE ' 



JET SECTION TYPE NUMBERS' 

THIS IS VERY SIMILAR TO THE WING SECTION TYPE DATA* 
COMPLETED PREVIOUSLY.' 

THE ARRANGEMENT OF JET ELEMENTS IN A SECTION DETERMI 

THE JET SECTION TYPE. ANY SECTIONS HAVING THE SAME N 

OF ELEMENTS, ALL WITH THE SAME SPACING WITH RESPECT' 

THE WING SECTIONAL CHORD TO WHICH THEY ARE ATTACHED' 

OF THE SAME TYPE. BEGIN WITH A TYPE NUMBER OF 1 AND' 

IN SEQUENCE, 2 , 3 ,...( ASCENDING ORDER).' 

A SECTION WITH NO JET HAS A TYPE OF 0 (ZERO).' 

A MAXIMUM OF 10 JET SECTION TYPES IS ALLOWED. THERE' 
IS A REQUIREMENT THAT THE SECTIONS WITH JETS AND' 
WITHOUT JETS MUST BE IN GROUPS OF THREE OR MORE.' 



'==> ENTER IJTYPE, THE TYPE NUMBER OF EACH JET SECTION. (I 



PRINT *, 

+ WORK' 

PRINT *, 

PRINT * 

PRINT *, 

PRINT * 

PRINT *, 

PRINT *, 

PRINT *, 

PRINT * 

PRINT *, 

20 PRINT * 

DO 25 K = 1 ,NROWS 
WRITE) 6,32 ) K,NROWS 
READ) 5, * ) IJTYPE 1 K ) 

I F I IJTYPE ( K ) .GT. NJTYPE) NJTYPE = IJTYPE(K) 

I F ( IJTYPE ( K ) .NE. 0) NROWSJ = NROWSJ + 1 
I F ( NJTYPE .GT. 8) THEN 
WRITE) 6,31 ) NJTYPE 

PRINT *, ' A MAXIMUM OF 10 JET SECTION TYPES IS ALLOWED.' 
PRINT *, ' ***** W A R N I N G ***** ' 

PRINT *, ' YOU MAY ENTER ONLY ONE MORE DIFFERENT TYPE.' 

END IF 

31 FORMAT) IX, 5X,29KNUMBER OF JET SECTION TYPES = ,13 I 

32 FORMAT) IX,' ENTER JET SECTION TYPE FOR SECTION ',12,' OF ',12,' S 

+ECTIONS . ' ,/) 

25 CONTINUE 

SET UP FOR ROW CONSISTENCY CHECK 

DEFINE THE NUMBER OF CHORDWISE DIVISIONS FOR EACH ROW 
DO 80 K = 1 ,NROWS 
NJ( K ) = 0 

I F ( IJTYPE ( K ) .EQ. 0) GO TO 80 
IJK = IJTYPE) K ) 

70 NJ( K ) = NI(IJK) 

80 CONTINUE 

CHECK FOR ROW CONSISTENCY ON EITHER SIDE OF JET 
I COUNT = 1 

IF(NJ) 1 ) .EQ. 0 )ITEST = 0 
IF(NJ) 1 ) .GT. 0 ) I TEST = 1 
DO 150 K = 2 ,NROKS 
IF(NJ)K) .EQ. 0 ) I COMP = 0 
IF(NJ)K) .GT. 0 ) I COMP = 1 
IFdCOMP .EQ. ITEST )GO TO 160 
IF) ICOUNT .LT. 3 )G0 TO 170 
I COUNT = 1 

IF(NJ)K ) .EQ. 0 )ITEST = 0 
I F ( N J ( K ) .GT. 0 ) I TEST = 1 
GO TO 150 

160 ICOUNT = ICOUNT + 1 
150 CONTINUE 

IF) ICOUNT .LT. 3) GO TO 170 
GO TO 190 



AN ERROR HAS OCCURED. 



170 PRINT *> 
PRINT *, 
PRINT *, 
PRINT *, ' 
GO TO 20 
190 CONTINUE 



SUMMARY GOES HERE 



PRINT A MESSAGE AND ENTER DATA AGAIN. 



ROW CONTINUITY RULE FAILURE I I ' 

REVIEW YOUR JET SECTION DATA. JET SECTIONS MUST BE' 

IN GROUPS OF 3 OR MORE AND THERE MUST BE AT LEAST 3' 
UNBLOWN WING SECTIONS INBOARD OR OUTBOARD OF ANY JET.' 



NUMBER OF CHORDWISE JET ELEMENTS CARD 
CALL CLRSCRN 
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CHORDWISE JET ELEMENTS' 

==> ENTER NI, THE NUMBER OF CHORDWISE JET EVD ELEMENTS' 
FOR EACH JET SECTION TYPE. THE NUMBER OF ELEMENTS '> 

BE ENTERED IN ASCENDING ORDER BY IJTYPE. THERE MAY', 

FEW AS 2 ELEMENTS PER SECTION TYPE OR AS MANY AS 10' 



PRINT * 

PRINT *, 

PRINT * 

PRINT *, 

PRINT *, 

+ ' MUST ' 

PRINT *, 

+' BE AS* 

PRINT *, 

+ , ' .(I )' 

PRINT * 

READ THE NUMBER OF CHORDWISE DIVISIONS (ELEMENTS) IN EACH ROW TYPE 
DO 30 N = 1 ,NJTYPE 
WRITE (6,22) N ,NJTYPE 
28 READ( 5 > * ) NI ( N ) 

NIN = NI ( N ) 

I F ( ( NIN .LT. 2) .OR. (NIN .GT. 10 3) THEN 
WRITE (6,21 ) NIN 

PRINT *, ' A MINIMUM OF 2 AND A MAXIMUM OF 10' 

PRINT *, • ELEMENTS ARE ALLOWED.' 

PRINT * 2 ' PLEASE REENTER' 

GO TO 26 
END IF 

21 FORMAT ( 1X,5X,40HNUMBER OF JET ELEMENTS IN THIS SECTION =>I3) 

22 FORMAT ( IX, ' ENTER NUMBER OF JET ELEMENTS FOR IJTYPE ' >12 > 4 OF ' ,1 

so + c6ntinue 

SUMMARY GOES HERE 



JET CHORDWISE ELEMENT COORDINATES CARD 



JET CHORDWISE ELEMENT COORDINATES' 

A SET OF COORDINATES IS REQUIRED FOR EACH JET 



CALL CLRSCRN 
PRINT * 

PRINT *, ' 

PRINT * 

PRINT *, ' 

+ 'SECTION TYPE. 

PRINT *> ' THE NUMBER OF OF COORDINATES WILL CORRESPOND TO ' , 

+ ' THE NUMBER' 

PRINT *, ' OF ELEMENTS ENTERED ON THE PREVIOUS CARD.' 

PRINT *. * THE FIRST PEAK POINT FOR EACH JET SECTION OCCURS ', 

+ ' AT THE ’ 

PRINT ' TRAILING EDGE. ITS COORDINATE MUST BE 1.0 AND WILL', 

+' AUTOMATICALLY' 

PRINT *, ' BE ENTERED FOR YOU. THERE IS NO MAXIMUM VALUE.' 

PRINT * 

PRINT *, '==> ENTER XB J , THE CHORDWISE COORDINATE OF EACH VORTEX', 
+' POINT.' 

PRINT ' THE VORTEX POINT IS DEFINED AS THE "PEAK" POINT ', 

+ ' FOR JET EVD' 'S.(R)' 

PRINT * 

READ THE CHORDWISE DIVISION DATA FOR EACH ROW TYPE 
DO 50 N = 1 >NJTYPE 
NIN = NI ( N ) 

XBJ( 1 ,N ) = 1.0 

DO 45 L = 2, NIN 

WRITE (6,42) NJTYPE 
WRITE ( 6 ,43 ) L,NIN 

PRINT *, ' NOTE: THIS IS WITH RESPECT TO THE CHORD OF ', 
'THIS SECTION. ' 

READ( 5 , * ) XBJ(L,N) 

X5JN = XBJ(L,N) 

I F ( XBJN .LE. 1.0) THEN 
WRITE ( 6 ,41 ) XBJN 

PRINT *, ' COORDINATE VALUE MUST BE GREATER THAN 1.0' 



46 



PRINT *, 



PLEASE REENTER' 



GO TO 46 
END IF 
PRINT * 

45 CONTINUE 
50 CONTINUE 

41 FORMAT* IX, 5X,30HCHORDWISE ELEMENT COORDINATE =,F10.6) 

42 FORMAT ( IX, ' FOR JET SECTION TYPE NUMBER ',12) 

43 FCRMAT( IX, ' ENTER CHORDWISE COORDINATE FOR JET EVD ELEMENT 
+' OF ' ,12,/) 

SUMMARY GOES HERE 



, 12 , 



IR = 1 
RETURN 

THERE IS NO JET FOR THIS RUN 
90 DO 100 K = l 2 NROWS 
IJTYPE ( K ) = 0 
NJ(K ) = 0 
100 CONTINUE 
IR = 1 
RETURN 

C ***************** *********************************************** ******* 
END 

SUBROUTINE XLETRl(IR) 



THIS SUBROUTINE READS THE LEADING AND TRAILING EDGE COORDINATES AT 
SPANWISE STATIONS CONNECTED BY STRAIGHT LEADING AND TRAILING EDGES. 
THE MAIN PROGRAM INTERPOLATES TO GET COORDINATES FOR INTERMEDIATE 
SECTIONS 

COMMON/MARK/NROWS»NROWSJ,NNT,NJT,NMAX,NW(‘40 l>NJ(<40 ),IW140 ),IJ(40 ) 
COMMON/GEOM1/Y l <+0 ) >CHORD( <+0 ) »DE LTA( <+0 ) >XB< 600)>XI1600)>DEL(600)> 
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1 Dl 40 ) >KK( 600 ) *ITYPE( 600 ) 

C0MM0N/GE0M2/XLE AD l 40 ) ,XTRAIL( 40 ) ,TANLE( 40 ) ,TANTE( 40 i 

COMMON/I NDAT/LUN 

DIMENSION YP( 40 ) ,XLE( 40 ) ,XTR( 40 ) 



LEADING AND TRAILING EDGE COORDINATES 



CALL CLRSCRN 
PRINT * 

PRINT *, 
PRINT *, 
PRINT * 

PRINT *, 



PRINT *, 

PRINT *, 
PRINT *, 

f PRINT *, 

PRINT *, 
PRINT *, 



LEADING AND TRAILING EDGE COORDINATES' 
FOR A WING OF ARBITRARY PLANFORM' 



==> ENTER AS A MINIMUM THE COORDINATES FOR THE TIP AND', 
' ROOT SECTIONS. ' 

COORDINATES ARE ALSO REQUIRED FOR SECTIONS WHICH ', 
•DEFINE A' 

BREAK IN THE LEADING OR TRAILING EDGES.* 

THE COORDINATES REFER TO THE CHORDWISE DISTANCE, 
'MEASURED AT' 

THE SECTION CENTERLINE, FROM THE Y-AXIS TO THE ', 
•RESPECTIVE EDGE' 

IN UNITS OF SPAN. ' 

THE PROGRAM ASSUMES A STRAIGHT EDGE EXISTS BETWEEN', 
' SECTIONS' 

ENTERED HERE AND WILL INTERPOLATE BETWEEN THE INPUT* 
* VALUES.' 

THE SECTION CENTERLINE COORDINATE IS AUTOMATICALLY*, 
' WRITTEN' 

TO THE DATA FILE FROM YOUR PREVIOUS INPUT. (R,R)' 



PRINT *, 

0RINT *, 

+ PRINT *, 

PRINT * 

5 NX = 0 

READ NUMBER OF SECTIONS TO INPUT 
9 PRINT *, ' HOW MANY WING SECTIONS WILL YOU BE ENTERING', 

+ ' COORDINATES FOR?' 

10 READ( 5 , * ) NSECT 

IF (NSECT. GT. NROWS ) THEN 
WRITE (6,11) NROWS 
PRINT *> ' PLEASE REENTER' 

GO TO 10 
END IF 

CHANGE TO CORRECT NSECT IF IMPROPER VALUE ENTERED 
PRINT * 

WRITE (6, SI) NSECT 
WRITE (6,16) 

CALL QUERY (NANS) 

IF I NANS. EQ. 1 ) GO TO 9 
READ XLEAD AND XTRAIL 

PRINT *, ' BEGIN AT TIP AND WORK IN. TIP SECTION = 1.' 

PRINT * 

DO SO N = 1, NSECT 
IF ( N .NE. 1 I CALL CLRSCRN 
NRITE( 6,46) N, NSECT 
20 READ( 5 > * ) I 

RETRIEVE AND PRINT CENTERLINE COORDINATE DATA 
Y P ( N ) = Y(I) 

WRITE ( 6,42 ) I 
WRITE ( 6 ,4S ) YP(N) 

PRINT * 

WRITE ( 6 ,44 ) I 
RE AD( 5 , * ) XLE(N) 

PRINT * 

WRITE ( 6 ,45 ) I 
READ( 5 , * ) XTR(N) 

PRINT * 

50 CONTINUE 

11 FORMAT ( IX ,5X , 'THE NUMBER OF SECTIONS MUST NOT BE MORE THAN ’,12,/) 

51 FORMAT ( IX, 5X, 'THE NUMBER OF SECTIONS YOU WILL BE ENTERING DATA' 

1, ' FOR IS * ,12 ) 

41 FORMAT ( 1X,5X,S0HCH0RDWISE ELEMENT COORDINATE =,F10.6) 
h2 FORMAT ( IX , ' FOR SECTION (ROW) NUMBER *,I2) 

4S FORMAT ( IX, ' SECTION CENTERLINE COORDINATE = ',F10.6) 

44 FORMAT ( IX , ' ENTER THE LEADING EDGE COORDINATE FOR SECTION * ? I2) 

45 FORMAT ( IX, ' ENTER THE TRAILING EDGE COORDINATE FOR SECTION SI2) 

46 FORMAT ( IX* ' ENTER THE WING SECTION NUMBER ASSOCIATED WITH * 

1 , 'COORDINATE SET ',12,' OF ',12,/J 



SUMMARY OF LEADING AND TRAILING EDGE COORDINATES DATA 

CALL CLRSCRN 
WRITE (6,47) 

47 FORMAT ( IX, 'SUMMARY OF LEADING/TRAILING EDGE COORDINATE DATA?’, 

1/ , IX , 25H==> ENTER 1 = YES ) 2 = NO) 

CALL QUERY (NANS) 

IF (NANS.GE.2 ) GO TO 60 
WRITE (6,48) 

WRITE (6,49) 

WRITE (6,52) (YP(N),XLE(N),XTR(N),N=1, NSECT) 

WRITE (6,16) 

CALL QUERY (NANS) 

IF ( NANS. EQ . 1 ) GO TO 5 

48 FORMAT (1X,7X,'THE COORDINATE DATA IS:’,/) 

16 FORMAT ( // , IX , 'DO YOU WISH TO CHANGE/REENTER THIS INPUT DATA?*, 
1/,1X ? 25H==> ENTER 1 = YES* 2 = NO ) 

49 FORMAL 1X,5X, 'CENTERLINE * ,5X, 'LEADING EDGE ' ,SX, 'TRAILING EDGE',/) 
52 FORMAT ( S( 5X,F10 . 6 ) ) 

60 CONTINUE 
Z WRITE DATA TO FILE 

DO 70 N = 1, NSECT 

WRITE( LUN, 101 )YP( N ) ,XLE ( N ) ,XTR( N ) 
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101 FORMAT ( 3F10 . 6 ) 

70 CONTINUE 

OUTPUT A 9 CARD AFTER NSECT SETS OF COORDINATES HAVE BEEN INPUT 
WRITE( LUN > 102 ) 

102 FORMAT ( '9 ’ ) 



IR = 1 
RETURN 

C*********************************************************************** 

END 

SUBROUTINE XLETR2 



TRAPEZOIDAL WING PLANFORM PARAMETERS' 
NOTE: PLANFORM MUST BE SYMMETRIC' 



THIS SUBROUTINE READS THE FUNDAMENTAL PLANFORM PARAMETERS FOR A 
TRAPEZOIDAL WING. NOTE THAT THE PLANFORM OUTLINE MUST BE SYMETRIC. 

COMMON/MARK/NROWS ,NROWSJ ,NWT ,NJT ,NMAX ,NW( 40 ) ,NJ( 40 ) ,IW( 40 ) , I J ( 40 ) 
COMMON/JOHN/ AREA , SPAN, ARATIO >TR> SWEEP ,CREF ,CMAC ,CBAR ,XMC,XCG 
COMMON/GEOMl/Y( 40 ), CHORD ( 40 * > DE LT A( 40 ) ,XB( 600 ),XI( 600 ) ,DEL( 600 ) , 

1 D( 40 ) *KK( 600),ITYPE( 600) 

C0MM0N/GE0M2/XLE ADl 40 ) ,XTRAIL( 40 ) ,TANLE( 40 ) ,TANTE( 40 ) 
COMMON/INDAT/LUN 

TRAPEZOIDAL WING PLANFORM PARAMETERS 

CALL CLRSCRN 
PRINT * 

PRINT *, ' 

PRINT *, ' 

PRINT * 

CALCULATE ASPECT RATIO FROM PREVIOUSLY SUPPLIED DATA 
ARATIO = SPAN * SPAN / AREA 

PRINT *, '==> THE CA1 CULATED WING ASPECT RATIO, ARATIO = ’, ARATIO 
GO TO 15 
10 PRINT * 

READ THE FUNDAMENTAL PLANFORM PARAMETERS 

PRINT *, '==> ENTER THE WING ASPECT RATIO, ARATIO (R).’ 

READ (5,*) ARATIO 
15 PRINT * 

PRINT *, ’==> ENTER SWEEP, THE SWEEP ANGLE OF THE QUARTER-CHORD' 

PRINT *, ' LINE, IN DEGREES. (R)’ 

READ (5,*) SWEEP 
PRINT * 

PRINT *, '==> ENTER TR, THE WING TAPER RATIO. THIS IS DEFINED AS 1 
PRINT *, ' THE CHORD AT THE WING TIP DIVIDED BY THE CHORD AT' 

PRINT *, ' THE AXIS OF SYMMETRY, THE WING ROOT . ( R ) ' 

READ (5,*) TR 
PRINT * 



C SUMMARY OF TRAPEZOIDAL WING PLANFORM PARAMETERS INPUT DATA 

C 

CALL CLRSCRN 
WRITE (6,11) 

11 FORMAT ( IX , ‘SUMMARY OF TRAPEZOIDAL PLANFORM PARAMETERS DATA?', 

1/ > IX > 25H==> ENTER 1 = YES* 2 = NO) 

CALL QUERY (NANS) 

IF ( NiNS.GE . 2 ) GO TO 20 
PRINT * 

WRITE (6,12) ARATIO, SWEEP, TR 
WRITE (6,16) 

CALL QUERY (NAN’S) 

IF ( NANS.EQ. 1 ) GO TO 10 

12 FORMAT (IX, 'ASPECT RATIO = ' , F10 . 6 , 3X , 1 SWEEP =’,F10.6, 

13X, 'TAPER RATIO =',F10.6,/) 

16 FORMAT ( // > IX , ’ DO YOU WISH TO CHANGE/REENTER THIS INPUT DATA?’, 
1/,1X,25H = = > ENTER 1 = YES j 2 = NO ) 

20 CONTINUE 
C WRITE TO DATA FILE 

WRITE ( LUN, 100 ) ARATIO , SWEEP ,TR 
100 FORMAT ( 3F10 . 6 ) 

C 

C PROCESS VALUES FOR USE BY CHECKING ROUTINES 
C 

C COMPUTE THE GENERAL PLANFORM CHARACTERISTICS 
B2 = SPAN / 2.00 
SW = SWEEP / 57.295779 
CROOT = 2.0 * SPAN / ( ( 1 . 0+TR )*ARATIO ) 

AREA = (1.0+TR) * CROOT * B2 

XLB2 = 0.250 * (1.0-TR) * CROOT + B2 * TAN(SW) 

CMAC = 2.0 * CROOT * (1.0 + TR + TR*TR ) / ( 3 . 0*( 1 . 0+TR ) ) 

IF( CREF .EQ. 0.0) CREF = CMAC 
CBAR=ARE A/SPAN 
C 

C COMPUTE THE LEADING AND TRAILING EDGE COORDINATES 
DO 60 K = 1 ,NROWS 
YBAR = Y(K ) 

IF ( YBAR .LT. 0.0) YBAR = -YBAR 
XLEAD(K) = XLB2 * YBAR 
C = CROOT * ( 1.0-1 1.0-TR )*YBAR ) 

XTRAIL(K) = XLEAD(K) + C 
60 CONTINUE 
C 

RETURN 

C*********************************************************************** 

END 

SUBROUTINE N0RM1 
C 

C THIS SUBROUTINE NORMALIZES ALL WING PLANFORM GEOMETRY BY SPAN/2 
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COHMON/MARK/NROWS »NPOWSJ ,NWT >NJT ,NMAX ,NW! 40 KNJ! 40 ) ,IW! 40 ) ,1 J( 40 ) 
COMMON/JOHN/ AREA ,SPAN, ARATIO ,TR > SWEEP ,CREF >CMAC »CBAR ,XMC,XCG 
C0MM0N/GE0M1/Y! 40 ) , CHORD! 40 I .CELT A( 40 ) ,XB( 600 ) ,Xl! 600 ) ,DEL! 600 ) , 

1 D( 40 ) *KK( 600) 2 ItYPE(600 ) 

CCMM0N/GE0M2/XLEAD! 40 ) ,XTRAIL( 40 j ,TANLE ! 40 ) ,TANTE( 40 ) 

10 B2 = SPAN / 2.00 
AREA = AREA / B2**2 
CREF = CREF / B2 
20 XMC = XMC / B2 
XCG = XCG / B2 
DO 40 K = 1, NROWS 
30 XLEAD(K) = XLEAD( K ) / B2 
XTRAIL(K) = XTRAIL(K) / B2 
40 CONTINUE 
SPAN =2.00 

ARATIO = SPAN * SPAN / AREA 
RETURN 

C*********************************************************************** 

END 

SUBROUTINE BOXS(IR) 

THIS SUBROUTINE CONSTRUCTS THE GEOMETRIC PARAMETERS FOR ALL THE 
EVD ELEMENTS ON THE WING AND JET 

COMMON/MATHEW/NCASES ,ISYMM,IPRINT , JETFLG *IGTYPE »IHINGE 
COMMON/MARK/NROWS ,NROWSJ ,NHT ,NJT ,NMAX ,NW( 40 ) ,NJ( 40 ) ? IW( 40 ) ,1 J< 40 ) 
COMMON/JOHN/ AREA , SPAN, ARATIO ,TR> SWEEP , CREF ,CMAC,CBAR >XMC*XCG 
COMMON/GEOM1/Y ( 40 ) > CHORD! 40 ) , DELTA! 40 ) ,XB( 600 ) ,XI( 600 ) ,DEL( 600 ) , 

1 DC 40 ) ; KK( 600 KIT YPE! 600 ) 

C0MM0N/GE0M2/XLE AD (40 ) ,XTRAIL! 40 ) ,T ANLE ( 40 ) >TANTE( 40 ) 
C0MM0N/SG1/XBW1 20,10) ,XBJ (20,10), ICTYPE ( 40 ) , I JTYPE ( 40 ) , 

1 NHTYPE ,NJTYPE 

CONSTRUCT THE ELEMENTS ON THE WING 

COMPUTE SECTIONAL DATA 
10 CHORD(l) = XTRAIL(l) - XLEAD(l) 

DELTA( 1 ) = 1.00 - Y( 1 ) 

CMAC = CH0RD(1)**2 * DELTA! 1) 

DO 30 K = 2 ,NROWS 

20 CHORD! K ) = XTRAIL(K) - XLEAD(K) 

DELTA(K) = Y(K-l) - Y(K) - DELTA! K-l ) 

IF ! DELTA! K ) . LT . 0.0) GO TO 140 
CMAC = CMAC + CHORD! K )**2 * DELTA! K) 

30 CONTINUE 

CHECK THE VALIDITY OF THE SECTIONAL ALLIGNMENT 
YD = Y(NROWS) - DELTA! NROWS) 

IFUISYKM .GE. 0) AND. ! ABS! YD ) .GT. 0.0001 )) GO TO 190 
IF ! ( ISYMM . EQ . 1) .AND. (ABS(YD + 1.0) .GT. O.OOOD) GO TO 
DSUM = DELTA(l) 

DO 35 K = 2, NROWS 
YL = Y ( K ) + DELTA! K ) 

YR = Y(K-l) - DE LTA! K-l ) 

IF ( ABS! YR-YL ) .GT. C.C001) GO TO 190 
DSUM = DSUM + DELTA! K) 

35 CONTINUE 

I F ( ABS l DSUM-0 . 50 ) .GT. 0.0001 ) GO TO 190 
CMAC = 2.0 * CMAC / AREA 
IF! ISYMM .LT. 1) CMAC = 2.0 * CMAC 
IF ! CREF .LT. 0.0001) CREF = CMAC 
CALL TAMS! TANLE ,XLEAD ,Y , NROWS) 

COMPUTE ALL CHORDWISE ELEMENT PARAMETERS FOR EACH SECTION 
1=0 

DO 90 K = 1, NROWS 
COMPUTE X-COORDINATES 
NWK = NW(K) 

L = 1 ,NWK 

+ 1 

ICTYPE ! K ) 

= XBW( L ,ICK ) 
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DO 50 
I = I 
ICK = 

40 XB( I ) 

50 CONTINUE 
COMPUTE ALL 
I = I 
IW( K ) 

DO 80 
I = I 
60 KKt I I 
DEL! I ) = 



OTHER PARAMETERS 
NWK 
I + 1 
= 1 ,NWK 

K 

XB! I + 1 ) 



XB( I ) 
XB! I ) 



* CHORD! K) 



70 XI! I ) = XLEAD! K ) 

ITYPE(I) = 10 
80 CONTINUE 

REDEFINE THE LAST DEL IN THIS SECTION, AND DEFINE THE L.E. EVD TYPE 
DEL! I ) = 1.00 - XB! I ) 

IWK = IW(K ) 

ITYPE(IWK) = 20 
90 CONTINUE 
NWT = I 

CONSTRUCT THE ELEMENTS ON THE JET SHEET 

COMPUTE ALL CHORDWISE ELEMENT PARAMETERS FOR EACH SECTION 
IF ( JETFLG .NE. 0) GO TO 180 
DO 170 K = 1, NROWS 
COMPUTE X-COORDINATES 
I J( K ) = 0 
100 NJK = NJ( K ) 

IF ( NJK .EQ. 0) GO TO 170 
DO 120 L = 1 >NJK 
1=1 + 1 
IJK = IJTYPE(K) 

110 XB ( I ) = XBJ! L,IJK) 
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120 CONTINUE 

: COMPUTE ALL OTHER PARAMETERS 

I = I - NJK 
130 IJ(K ) = I + 1 

DO 160 L = 1 >NJK 
1 = 1 + 1 
140 KK( I ) = K 

DEL! I) = XB( I + 1 ) - XB( I ) 

150 XI! I) = XLEAD(K) + XB( I ) * CHORD ( K ) 

ITYPE ( I ) = 10 
160 CONTINUE 

: REDEFINE THE LAST DEL AND EVD TYPE AND THE D VALUE FOR THIS SECTION 

DEL(I ) = 1.0E10 
ITYPE( I ) = 30 
D(K ) = XI ( I ) - XTRAIL(K) 

170 CONTINUE 
180 NMAX = I 

IF! NMAX .GT. 600) GO TO 210 
NJT = NMAX - NWT 
IR = 1 
RETURN 

AN ERROR HAS OCCURED. PRINT A MESSAGE AND QUIT. 

190 WRITE ! 6 , 200 ) 

200 FORMAT ( 1H1/38X ,44HPLEASE CHECK YOUR SECTION LOCATION (Y) INPUT) 

IR = 2 
RETURN 

210 WRITE ( 6 > 220 ) NMAX 

220 FORMAT! 1H1/48X,I4>21H IS TOO MANY ELEMENTS) 

IR = 2 
RETURN 
END 

SUBROUTINE BOXJ! NEWMAX , IR ) 

THIS SUBROUTINE COMPUTES THE JET BLOWING FACTOR CMUP 

COMMON/MARK/NROWS ,NROWSJ ,NWT ,NJT >NMAX >NW( 40 ),NJ( 40 ) 2 IW( 40 ) ,1 J< 40 ) 
COMMON/GEOM1/Y ( 40 J >CHORD< 40 ) , DELTA l 40 ) ,XB( oOO ) ,XI ( 600 ), DEL! 600 ) , 

1 D!40) 2 KK! bOO ) .ITYPE (600 ) 

COMMON/JCASE/CMU( 40 ) ,CMUP( 40 J ,CMUPP( 40 ) 

COMPUTE THE NEW CMUP AND SAVE THE OLD VALUES AS CMUPP 
10 NEWMAX = NMAX 
ICOUNT = 0 
DO 30 K = “ 

CMUPP( K ) 

I F ( NJ( K ) .EQ. 0 ) GO TO 30 
IF! CMU( K ) .LT. 0.0001! GO TO 20 
CMUP! K ) = 2.00 / ( CHORD ( K )*CMU! K ) ) 

GO TO 30 

20 ICOUNT = ICOUNT + 1 
CMUP(K) =0.00 
30 CONTINUE 

PRINT *, '==> DO YOU WISH TO SEE THE JET BLOWING COEFFICIENTS?' 
PRINT *, * ENTER !Y OR N)' 

35 READ ( 5 > 1 ( A1 ) 1 J ANS 
IF ( ANS.EQ. ' Y ' ) THEN 

WRITE! 6, 40 ) ( K »CMU! K ) >K = 1 >NROWS ) 

ELSE IF (ANS.EQ. 'N' ) THEN 
GO TO 45 
ELSE 

PRINT *, ' INVALID RESPONSE - REENTER.' 

GO TO 35 
END IF 

1010 FORMAT! A4) 



l,NROWS 
= CMUP ( K ) 



40 FORMAT ( 1H1 >40X > 10! 4H**** )/ 41X, 

1 40H* SECTIONAL JET BLOWING COEFFICIENTS */41X , 10 ( 4H**** )// 

2 53X , 3HROW ,5X , 3 HCMU , 40 ( /53X , 1 2 , F 12 . 6 )) 

45 IF! ICOUNT .EQ. 0 ) GO TO 50 

IF! ICOUNT .LT. NRQHSJ ) GO TO 60 
NEWMAX = NWT 
50 IR = 1 
RETURN 

AN ERROR HAS OCCURED. PRINT A MESSAGE AND TRY AGAIN. 

60 WRITE! 6, 70 ) 

70 FORMAT! 1H0,43X,35HA ZERO VALUE OF CMU HAS BEEN INPUT., 

1 33H THIS CMU CASE HAS BEEN IGNORED. ) 

IR = 2 
RETURN 

C *********************************************************************** 
END 

SUBROUTINE TANS! TAN, X,Y ,NROWS ) 



THIS SUBROUTINE COMPUTES THE TANGENT OF THE LEADING OR TRAILING EGDE 
SHEEP ANGLE AT THE CENTERLINE OF EACH SECTION. IT IS ACCURATE FOR 
SECTIONS WITH STRAIGHT EDGES IN GROUPS OF THREE OR MORE. 

IT IS ONLY APPROXIMATE FOR CURVED EDGES. 

IT MAY RESULT IN ERRORS FOR SECTIONS ADJACENT TO WING BREAKS, 

IF STRAIGHT EDGES ARE IN ADJACENT GROUPS OF ONLY ONE OR TWO. 

DIMENSION TAN! 40 ) ,X( 40 ) ,Y ( 40 ) ,S! 40 ) 

SLOP! XR,XL,YR,YL) = (XR-XL) / (YR-YL) 

DO 50 K = 1 ,NROWS 
KR = K-l 
KL = K 
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I Ft K .GT. 1) GO TO 30 
KR = 1 
KL = 2 

30 SIK) = SLOP I Xl KR ) ,X( KL ) ,Y( KR ) >Y( KL ) ) 

50 CONTINUE 

DO 200 K = 1 >NROWS 
I F I K .LT. 3 ) GO TO 150 
I F ( K .EQ. NROMS) GO TO 150 
I F( K .EQ. ( NROWS-1 ) ) GO TO 160 
C CHECK WHETHER THE RIGHT OR LEFT SIDES ARE STRAIGHT 
IFIABSISIK) - SIK-l)) . LT . 0.001) GO TO 150 
IFI ABSISI K + l ) - S( K + 2 ) ) . LT . 0.001) GO TO 160 
C NEITHER SIDE IS CONCLUSIVELY STRAIGHT - CHECK FURTHER LEFT AND RIGHT 
I F ( K .EQ. 3 ) GO TO 160 
I F( K .EQ. ( NRONS-2 ) ) GO TO 150 
IFI ABSI SIK-l ) - SI K-2 ) ) . LT . 0.001) GO TO 160 
IFI ABSI SIK + 2 ) - SI K + 3 ) ) . LT . 0.001) GO TO 150 
C THE TRUE SHAPE CANNOT BE DETERMINED - GIVE UP AND TAKE THE AVERAGE 
TANIK) = (S(K) + SI K + l ) ) / 2.00 
GO TO 200 

C THE RIGHT EDGE IS STRAIGHT 
150 TANIK ) = SIK) 

GO TO 200 

C THE LEFT EDGE IS STRAIGHT 
160 TANIK) = SI K+l) 

200 CONTINUE 
RETURN 

C*********************************************************************** 

END 

SUBROUTINE INCASE I LCASE >NOALFA ) 



THIS SUBROUTINE READS THE FUNDAMENTAL GEOMETRIC CASE DATA 
CHARACTERS ANS 

COMMON/M A RK /N ROWS > NR OWS J * NWT >NJT ,NMAX ,NW( 40 ) >NJI 40 ) ,IWI 40 ) »IJ( 40 ) 
COMMON/FCASE 1/INTWST, INHITE, INDELJ, INCAMB, INBETA 

COMMON/FCASE 2/TWIST I 40,10 ),H LI 40, lO ) ,DJ( 40 , 10 ) , ACTE I 40 ) , ACI 20,40), 
1 XHBI 4,40 ), BET I 4,40 ),IFS( 4,40 ),ICT( 40 ),IHTI40 ),NCT,NHT 

COMMON/I NDAT/LUN 
DIMENSION Nil 10), DUMMY! 40) 

IFI (LCASE .EQ. 1) .AND. I NOALFA .GT. 0)) RETURN 

CALL CLRSCRN 
PRINT * 

WRITE! 6,5) LCASE 

5 FORMAT! IX, 4X, 'FUNDAMENTAL CASE CONTROL FLAGS FOR CASE ’,12,’.') 
PRINT * 

PRINT *, '==> THE FOLLOWING QUESTIONS ARE USED TO SET THE CONTROL 
+ FLAGS. f 



PRINT *, 
+ARI ATICNS ' 
PRINT *, ' 
PRINT *, 1 
+ 1. ' 

PRINT * 
PRINT *, ' 
+MITTED . f 
PRINT * 
PRINT *, ' 
+ INCLUDED ' 
PRINT *, ' 
+FORMATI0N. 
PRINT * 

10 CONTINUE 



THESE FLAGS IDENTIFY THE TYPES OF LINEAR GEOMETRIC V 

TO BE INCLUDED IN EACH FUNDAMENTAL CASE.' 

THE ANGLE OF ATTACK CASE IS ALREADY INCLUDED AS CASE 

A NO RESPONSE INDICATES THAT THE VARIATION WILL BE 0 

A YES RESPONSE INDICATES THAT THE VARIATION WILL BE 
AND THAT YOU WILL PROVIDE THE REQUIRED AMPLIFYING IN 



READ FUNDAMENTAL CASE CONTROL FLAGS 



20 



fa 



30 



INVALID RESPONSE - REENTER. 1 



VARY LEADING EDGE VERTICAL DISPLACEMENT? (Y OR N)' 
) ANS 
) THEN 



PRINT *, '= = > VARY SPANWISE TWIST DISTRIBUTION? I Y OR N ) 
READ I 5 , ' I A1 ) ' ) ANS 
IF ( ANS.EQ. 'Y' ) THEN 
INTNST = LCASE 
ELSE IF I ANS.EQ. 'N' ) THEN 
INTNST = 0 
ELSE 
PRINT 
GO TO 
END IF 
PRINT * 

PRINT *, '==> 

READ I 5 > ' I A 1 ) 

IF I ANS.EQ. 'Y 
INHITE = LCASE 
ELSE IF I ANS.EQ. 'N' ) THEN 
INHITE = 0 
ELSE 

PRINT *, ' 

GO TO 30 
END IF 
PRINT * 

PRINT *, '==> 

READ (5, MAI) 

IF I ANS.EQ. 'Y 
INDELJ = LCASE 
ELSE IF (ANS.EQ. 

INDELJ = 0 
ELSE 

PRINT *, ' INVALID RESPONSE - REENTER. 

GO TO 40 
END IF 



40 



INVALID RESPONSE - REENTER. 



VARY JET DEFLECTION? (Y OR N)' 
' ) ANS 
) THEN 



•N' ) THEN 
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PRINT * 

PRINT *> '= = > VARY THE WING CAMBER? (Y OR N)' 

50 READ (5,'( A1 )' ) ANS 
IF ( ANS.EQ. 'Y' t THEN 
INC AMS = LCASE 
ELSE IF ( ANS.EQ. 'N' ) THEN 
INCAMB = 0 
ELSE 

PRINT * 2 1 INVALID RESPONSE - REENTER.' 

GO TO 50 
END IF 
PRINT * 

PRINT *> '==> VARY THE WING HINGE DEFLECTION? (Y OR N)' 
60 READ I5,'(A1)' ) ANS 
IF (ANS.EQ. 'Y' ) THEN 
INBETA = LCASE 
ELSE IF (ANS.EQ. 'N' ) THEN 
INBETA = 0 
ELSE 

PRINT *2 ' INVALID RESPONSE - REENTER.' 

GO TO 60 
END IF 
PRINT * 

~SUMMARy"6F"fUNDAME^^ DATA 



CALL CLRSCRN 
WRITE (6,580) 

580 FORMAT ( IX , ' SUMMARY OF FUNDAMENTAL CASE CONTROL FLAGS DATA?', 
1/,1X,25H==> ENTER Y = YES> N = NO) 

READ (5,*( Al)' ) ANS 
IF (ANS.EQ. 'N' ) GO TO 70 
CALL CLRSCRN 
WRITE (6,6) LCASE 

6 FORMAT! IX, 2X, 'CONTROL FLAGS FOR FUNDAMENTAL CASE ',12'.') 

PRINT * 

PRINT *, ' A NONZERO FLAG INDICATES THAT THE LINEAR VARIATION' 
PRINT *, ' WILL BE INCLUDED. THE VALUE OF A NONZERO FLAG' 
PRINT *, ' HAS BEEN SET TO THE FUNDAMENTAL CASE IN WHICH IT ' 
PRINT *, ' IS INCORPORATED, HOWEVER THIS CHOICE IS ARBITRARY.' 
PRINT * 

WRITE (6,581) 

WRITE (6,582) INTWST ,INHITE ,INDELJ , INCAMB , INBETA 
WRITE (6,590) 

READ (5, MAI)' ) ANS 
IF (ANS.EQ. 'Y* ) GO TO 10 

581 FORMAT ( IX INTWST ', 5X ,' INHITE ' ,5X , ' INDELJ ' ,5X ,' INCAMB ', 5X , 

+ ' INBETA ' ) 

582 FORMAT ( IX ,5( 2X , 1 2 , 7X 1) 

590 FORMAT ( // , IX ,43HCHANGE FUNDAMENTAL CASE CONTROL FLAGS DATA?, 
1/,1X,25H==> ENTER Y = YESj N = NO ) 

70 CONTINUE 



WRITE TO DATA FILE 

WRITE! LUN 2 601 ) INTWST , INHITE , INDELJ , INCAMB , INBETA 
601 FORMAT! 51 2) 

"RiAD”sicTi0NAL~fwisf j~HilGHT"AND"jif "DEFLECT IO n’d^ 

IF( INTWST .EQ. 0) GO TO 85 

"TWIST "DISTRIBUTION ~CARDS~” 



CALL CLRSCRN 
PRINT * 

PRINT *,' 
PRINT * 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



SPANWISE WING TWIST DISTRIBUTION VALUES' 

THE SECTIONAL TWIST IS THE WING TWIST AT THE SECTION' 
CENTERLINE WITH RESPECT TO THE WING REFERENCE PLANE.' 

POSITIVE VALUES ARE IN THE SAME SENSE AS A POSITIVE' 
ANGLE-OF-ATTACK (LEADING EDGE UP).' 

==> ENTER TWIST, SECTIONAL WING TWIST, IN DEGREES. (R)' 



DO 80 K = 1 ,NROWS 
WRITE! 6,12) K , NR0NS 
READ( 5, * ) TWIST! K, LCASE ) 

12 FORMAT! IX, ' ENTER SECTION TWIST FOR SECTION ',12,' OF 
+IONS . ' ,/) 

80 CONTINUE 
PRINT * 

SUMMARY REQD 

WRITE TO DATA FILE 

WRITE! LUN, 701 ) ( TWIST ( K , LCASE ) , K=1 , NROWS ) 

701 FORMAT! 8F10. 6 ) 

85 IF( INHITE .EQ. 0 ) GO TO 95 

LEADING EDGE VERTICAL DISPLACEMENT CARDS 



,12,' SECT 



CALL CLRSCRN 
PRINT * 

PRINT * 

PRINT * 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



LEADING EDGE VERTICAL DISPLACEMENT' 

THIS DATA INDICATES THE VERTICAL DISPLACEMENT OF THE' 
LEADING EDGE FROM THE WING REFERENCE PLANE. VALUES' 
MUST BE NORMALIZED BY THE SECTIONAL CHORD.' 



DISPLACEMENT MAY BE THE RESULT OF DIHEDRAL, TWIST 
NONLINEAR MOVEMENT OF A LEADING EDGE DEVICE, ETC. 
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PRINT *, 
PRINT *, 
PRINT *,' 
PRINT * 
PRINT *, 
PRINT * 
DO 90 



TRANSLATION DUE TO ORDINARY LINEAR LEADING AND' 
TRAILING FLAP DEFLECTIONS AND ANGLE OF ATTACK ARE' 
ACCOUNTED FOR AUTOMATICALLY BY THE PROGRAM.' 

= = > ENTER HL, NORMALIZED LEADING EDGE DISPLACEMENT .( R ) ' 



__ l,NRONS 

WRITE) 6,22 ) K,NROWS 
READ) 5 , * ) HL ( K, LCASE ) 

22 FORMAT (IX,' ENTER DISPLACEMENT FOR SECTION 
+ ' SECTIONS.',/) 

90 CONTINUE 
PRINT * 

SUMMARY REQD 



> 12 , 



OF 



> 12 , 



WRITE TO DATA FILE 
WRITE) LUN, 701 



) ( HL( K > LCASE ) ,K=1 ,NROWS ) 



95 IF( INDELJ . EQ. 0) GO TO 105 



JET DEFLECTION CARDS 



CALL CLRSCRN 
PRINT * 



JET DEFLECTION' 

THIS DATA INDICATES THE SPANWISE VARIATION OF JET' 
DEFLECTION RELATIVE TO THE TRAILING EDGE. THE JET' 
TURNING ANGLE IS MEASURED RELATIVE TO THE MEAN LINE' 
OF THE TRAILING EDGE. VALUES ARE INPUT WORKING' 

FROM THE RIGHTMOST JET TOWARDS THE CENTERLINE . ' 

A DOWNWARD DEFLECTION IS DEFINED AS POSITIVE.' 



PRINT *, ' 

PRINT * 

PRINT *>' 

PRINT 
PRINT 
PRINT *, ' 

PRINT *, ' 

PRINT * 

PRINT 
PRINT * 

PRINT *,*==> ENTER D J , THE JET TURNING ANGLE, IN DEGREES. (R)' 
PRINT * 

DO 100 K = 1 ,NRONSJ 



WRITE ( 6,32) K,NROWSJ 
READ) 5 > * ) DJ)K, LCASE) 

32 FORMAT) IX,' ENTER DEFLECTION 
+ ' JET SECTIONS . ' ,/) 

100 CONTINUE 
PRINT * 

SUMMARY REQD 

WRITE TO DATA FILE 
WRITE) LUN, 701 



FOR JET SECTION ',12,' OF ',12, 



) )DJ(K, LCASE ),K = l,NROWSJ) 



105 IF) INCAMB .EG. 0) GO TO 160 
INPUT CAMBER TYPE OF EACH SECTION 



WING SECTION CAMBER TYPE CARDS 



CALL CLRSCRN 
PRINT * 

PRINT *, ' 
PRINT * 

PRINT *, ' 
PRINT *, ' 
PRINT *, ' 

PRINT *, • 
PRINT *, ' 
PRINT *> ' 
PRINT * 

PRINT *, ' 
PRINT * 

PRINT *, ' 
PRINT * 

PRINT *, 
PRINT * 

NCT = 



WING SECTION CAMBER TYPES' 

THIS DATA IS SIMILAR TO THE WING SECTION TYPE DATA.' 
IN ORDER FOR SECTIONS TO BE OF THE SAME CAM3ER TYPE* 
THEY MUST BE OF THE SAME WING SECTION TYPE ( ICTYPE ) ' 
AND THE CAMBER ANGLES ASSOCIATED WITH EACH ELEMENT' 
MUST BE THE SAME. BEGIN WITH A TYPE NUMBER OF 1 AND' 
WORK IN SEQUENCE, 2 ,3 ,...( ASCENDING ORDER).) I)' 

A SECTION WITH NO CAMBER HAS A TYPE OF 0 l ZERO).' 

A MAXIMUM OF 10 CAMBER TYPES IS ALLOWED.' 

=> ENTER ICT, THE CAMBER TYPE NUMBER OF EACH SECTION.' 



DO 110 K = 1 ,NROWS 
WRITE) 6,42) K,NROWS 
READ) 5 , * ) ICT(K) 

DETERMINE NUMBER OF CAMBER TYPES 
IF) ICTtK ) .EQ. 0 ) GO TO 110 
IF(ICT)K) .GT. NCT) NCT = ICT(K) 

ICK = ICTtK) 

NI( ICK ) = NW ( K ) 

IF(NCT .GT. 8) THEN 
WRITE ( 6 ,41 ) NCT 

PRINT *, ' A MAXIMUM OF 10 CAMBER TYPES IS ALLOWED.' 
PRINT *, ' ***** WARNING ****** 

PRINT *, ' YOU MAY ENTER ONLY ONE MORE DIFFERENT TYPE.' 
END IF 

41 FORMAT) IX, 5X,29HNUMBER OF WING CAMBER TYPES = ,I3 ) 

42 FORMAT) IX,' ENTER CAMBER TYPE FOR SECTION ',12,' OF ',12, 

+ ' SECTIONS. ' ,/) 

110 CONTINUE 

SUMMARY REQD 

WRITE TO DATA FILE 
WRITE) LUN, 101 

101 FORMAT) 4012) 



) (ICT)K),K=l,NROWS) 
CAMBER ANGLES FOR EACH CAMBER SECTION TYPE 



CALL CLRSCRN 
PRINT * 
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PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



CAMBER ANGLES FOR THE DOWNWASH CONTROL POINTS' 

THE CAMBER ANGLE FOR THE DOWNWASH CONTROL POINT OF' 
EACH EVD ELEMENT IS REQUIRED. THE DOWNWASH CONTROL' 
POINT IS ARBITRARILY CHOSEN AS HALFWAY BETWEEN ANY' 
TWO ADJACENT XB( EVD BOUNDARY) POINTS, INCLUDING THE' 
TRAILING EDGE.' 

POSITIVE VALUES ARE IN THE SAME SENSE AS A POSITIVE' 
ANGLE-OF-ATTACK (LEADING EDGE UP).' 



* 

* 

* 

* 

* 

* 

* 

*, •==> ENTER AC, THE CAMBER ANGLE, IN DEGREES. (R) 
* 



READ THE CHORDWISE CAMBER ANGLES FOR EACH CAMBER TYPE 
DO 130 N = 1 ,NCT 
NIN = NI(N) 

DO 125 L = 1,NIN 
WRITE ( 6 ySi. ) NCT 
WRITE ( 6 ,53 ) L,NIN 
READ ( 5 , * ) AC( L ,N ) 

CONTINUE 



FOR CAMBER SECTION TYPE NUMBER ',12) 

ENTER CAMBER ANGLE FOR EVD ELEMENT ',12,' OF ',12,/) 
LOCATED AT CHORDWISE COORDINATE =',F10.6) 



125 

130 CONTINUE 

52 FORMAT ( IX , ' 

53 FORMAT (IX,' 

54 FORMAT (IX, 

SUMMARY REQD 

WRITE TO DATA FILE 
DO 135 N = 1 ,NCT 
NIN = NIIN) 

WRITE ( LUN , 701 ) ( AC( L ,N ) ,L = 1 ,NIN ) 
135 CONTINUE 

IF( NRONSJ .EQ. 0 ) GO TO 160 



TRAILING EDGE CAMBER ANGLE DATA CASE WITH JETS AND CAMBER 

CALL CLRSCRN 
PRINT * 

*> 

*> 

* 



PRINT 
PRINT 
PRINT 
PRINT *, 
PRINT *, 
PRINT *, 
PRINT *, 
PRINT *, 
PRINT * 
PRINT *, 
PRINT *, 
PRINT 
PRINT 
PRINT 



' TRAILING EDGE CAM3ER ANGLE FOR WINGS WITH' 

' JET SHEETS AND CAMBER. ' 

• THE TRAILING EDGE DEFLECTION ANGLE DUE TO CAMBER' 

' ONLY IS ENTERED HERE. THESE VALUES ARE USED TO' 

' DETERMINE THE TOTAL JET DEFLECTION ANGLE WITH' 

RESPECT TO THE FREESTREAM. VALUES ARE INPUT WORKING' 
FROM THE RIGHTMOST JET TOWARDS THE CENTERLINE.' 

' POSITIVE VALUES ARE IN THE SAME SENSE AS A POSITIVE' 
' ANGLE-OF-ATTACK (LEADING EDGE UP).' 

= = > ENTER ACTE, TRAILING EDGE CAMBER ANGLE ,( DEGREES ).( R ) ' 



READ THE TRAILING EDGE CAMBER ANGLE FOR EACH JET SECTION 
DO 140 K = l.NROHSJ 
WRITE ( 6,62) K 
WRITE( 6,63 ) 

READ ( 5 , * ) ACTE(K) 

140 CONTINUE 

62 FORMAT ( IX, ' FOR JET SECTION NUMBER ',12) 

63 FORMAT ( IX, ' ENTER CAMBER ANGLE FOR TRAILING EDGE ',/) 

SUMMARY REQD 
WRITE TO DATA FILE 

WRITE ( LUN , 701 ) ( ACTE ( K ) ,K=1 ,NRGWSJ ) 

STOPPED HERE ( JAC ) - CASES WITH JETS HAVE NOT BEEN FINISHED. 

THE HINGE LOCATION, TYPE AND TURNINg’aNGLEDATa” 

READ THE HINGE LOCATION, TYPi AND TURNING ANg[e DATA 
160 I F ( INBETA .EQ. 0) GO TO 210 
170 RE AD ( 5 , 100 ) ( IHT( K ) ,K = 1 ,NROWS ) 

NHT = 0 

DO 180 K = l.NROWS 
I F ( IHT ( K ) .GT. NHT) NHT = IHT(K) 

180 CONTINUE 

DO 200 N = 1 ,NHT 

READ( 5> 190 ) ( XHB( L,N),IFS(L,N),BET( L,N),L=1,4) 

190 FORMAT! 4( F10.6,Il,F9.6)i 
200 CONTINUE 

170 WRITE ( 5 , 100 ) ( IHT ( K ) ,K=1 ,NROWS ) 

210 RETURN 

*********************************************************************** 

END 

SUBROUTINE 0UT1( LCASE ) 

THIS SUBROUTINE PRINTS OUT THE GEOMETRIC DATA DERIVED FROM THE 
SECTIONAL METHOD INPUT 

COMMON/MATHEW/NCASES ,ISYMM ,IPRINT , JETFLG , IGTYPE ,IHINGE 
COMMON/MARK/NRONS ,NROWSJ,NWT ,NJT ,NMAX ,NW( 40 ) ,NJ( 40 ) ,IW( 40 ) ,1 J( 40 ) 
COMMON /LUKE/ TITLE(20) 

COMMON/JOHN/ AREA , SPAN , ARATIO ,TR , SWEEP ,CREF ,CMAC ,CBAR ,XMC ,XCG 
COMMON/GEOM1/Y ( 40 ) , CHORD) 40 ), DELTA) 40 ) ,XB( 600 ) ,XI ( 600 ) ,DEL( 600 ) , 

1 D ( 40 ) ,KK( 600 ) ,ITYPE( 600 ) 

C OMMON/G EOM2/XLEAD ( 40 ) ,XTRAIL( 40 ) ,TANLE ( 40 ) ,TANTE ( 40 ) 

COMMON/ FCASE 2/TWIST (40,10 ) ,HL( 40 , 10 ) , D J( 40 ) , ACTE ( 40 ) » AC ( 20,40 ), 

1 XHB( 4,40 ) ,BET( 4 ,40 ) ,IFS( 4 ,40 ) ,ICT( 40 ) ,IHT( 40 ) ,NCT ,NHT 

COMMON/FCASE3/EPS( 600 , 10 ) ,BETA( 600 , 10 ) ,THETA( 40 , 10 ) ,THS( 40 , 10 ) 
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*/ 



COMMON/I NDATA/ARE ,SPA ,CRE ,XM,CMA ,XC ,NRO,NC ,ISY ,IPR, JET ,IGT ,IHI 

PRINT CASE TITLE AND GENERAL GEOMETRIC PARAMETERS 
I F ( LCASE .GT. 1 ) GO TO 60 
10 WRITE 1 6 2 20 ITITLE 
20 FORMAT! 1H1 ,39X>10( 4H****)/ 

1 40X,40H* EVD JET - WING COMPUTER PROGRAM 

2 40X 2 10( 4H**** 1///20X , 20A4 ) 

CMA = CMAC * SPA / 2.0 

30 WRITE! 6, 40 ) AREA ,ARE,SPAN , SPA ,CREF ,CRE ,XMC ,XM, CMAC , CMA ,ARATIO, 

1 ARmTIO -.XuG »XC 

40 FORMAT! 1H0//54X 2 4HUSED , llX ,5HINPUT / 

1 41X >6HAREA =,2F15.6 / 41X,6HSPAN = 2 2F15.6 / 

2 41X,6HCREF r,2F15.6 / 42X,5HXMC = 2 £f15.6 / 

3 41X » 6HCMAC - 2 2F15.6 / 39X,8HARATI0 =,2F15.6 / 

4 42X,5HXCG = 2 £f15.6) 

WRITE! 6, 50 ) NROWS ,NRO ,NCASES 2 NC ,ISYMM , ISY , IPRINT , IPR , JETFLG, JET , 
1 IGTYPE 2 IGT,IHINGE >IHI ,NWT,NJT,NMAX 

50 FORMAT! 1HO/ 48X,7HNRGWS = ,I3>7X,I3 / 47X,8HNCASES =,I3,7X,I3 / 

1 48X > 7HISYMM =,I3 2 7X,I3 / 47X,8HIPRINT =,I3 2 7X,I3 / 

2 47X,SHJETFLG =,I3,7X,I3 / 47X,8HIGTYPE =,I3,7X,I3 / 

3 47X,8HIHINGE =,I3,7X 2 I3 /// 

4 43X > 25HNUMBER OF WING ELEMENTS =,14/ 

5 43X , 25KNUM3EP OF JET ELEMENTS =,I4 / 

6 42X , 26HTOTAL NUMBER OF ELEMENTS =,I4) 

60 J = 0 

JJ = NWT 

PRINT FUNDAMENTAL CASE HEADER 
WRITE ! 70 ) LCASE 
70 FORMAT! 1H1 , 23X 2 1H* 2 19! 4H**** )/ 

1 24X ,54H* ELEMENT GEOMETRY DATA AND FUNDAMENTAL CASE DATA FOR, 

2 17H FUNDAMENTAL CASE, 13, 3H */24X ,1H*, 19! 4H**** ) ) 

I LINES = 3 

DO 260 K = 1 >NROWS 

PRINT SECTIONAL DATA 

WRITE ! 6 » 80 ) K,Y(KKDELTA(K)*XLEADtKKXTRAIL!K),CH0RD(K) 2 TANLE!K) 
80 FORMAT! 1H0,11H**-* SECTION , 13 ,4H ***,2X,3HY = ,F10 . 6 , 2X 2 7HDELTA =, 

1 F10 . 6 2 2X » /HX LEAD = , F10 . 6 ,2X,8HXTRAIL = , F 10 . 6 , 2X , 7HCHORD =,F10.6, 

2 2X,7HTANLE =,F10.6 ) 

PRINT CHOP.DWISE DATA ON WING 
NWK = NW! K ) 

WRITE ! to , 90 ) NWK 2 TWIST ( K,LCASE ) ,HL( K, LCASE ) ,THS( K , LCASE ) 

90 FORMAT! 1H0,21HWING ELEMENTS NW =>I3,5X 2 7HTWIST =,F10.6,5X, 

1 4HML = * F10 . 6 »5X , 9HTHETA S =,F10.6) 

WRITE ! 6 2 100 ) IXB! J+L),L=1,NWK I 
100 FORMAT! lH 2 14X 2 2HXB , lOFli . 6 / 17X,10F11.6) 

IF! LCASE .GT. 1 ) GO TO 130 
WRITE ! by 110 ) (XI(J + L ) 2 L = 1 > NWK ) 

110 FORMAT! 1H ,14X, 2HXI , 10F11 . 6/17X , 10F11 . 6 ) 

WRITE ! 6 , 120 I < DEL ! J + L ) » L = 1 ,NWK ) 

120 FORMAT! 1H , 13X,3HDEL , lOFli . 6/17X,10Fll . 6 ) 

130 IF! ICT ! K ) .EQ. 0 ) GO TO 150 
ICK = ICT ( K l 

WRITE! 6, 140 ) ! AC! L, ICK ) 2 L=1 ,NWK ) 

140 FORMAT! 1H » 10X , 6HCAM3ER , 10F 11 . 6/17X , 10F11 . 6 ) 

150 WRITE! 6, 160 ) ( EPS! J+L,LCASE ) 2 L=1 2 NWK ) 

160 FORMAT! 1H ,13X ,3HEPS>10F11 . 6/lTX, lOFli . 6 ) 

WRITE! 6 2 170 ) ( BETA! J+L , LCASE ) 2 L=1 2 NWK ) 

170 FORMAT! lH 2 12X ,4HBETA > lOr 11 . 6/1 7X , lOF 11 . 6 ) 

WRITE f 6 » 180 ) ! I TYPE! J+L ) ,L = 1,NWK ) 

180 FORMAT! 1H , 12X ,4HTYPE , 10! 3X ,1 2 ,6X )/17X , 1C ( 3X , 1 2 , 6X ) ) 

J = J + NWK 
IL = 1 

IF! NWK .GT. 91 IL = 2 

I LINES = I LINES + 4 + 4*IL 

IF! LCASE .EQ. 1) I LINES = ILINES + 2*IL 

PRINT CHORDWISE DATA ON JET 
NJK = NJIK ) 

I F ! N JK .GT. 0 ) GO TO 200 
WRITE! 6, 1<>0 ) 

190 FORMAT! 1H »8X,19HTHIS ROW HAS NO JET) 

ILINES = ILINES + 1 
GO TO 230 

200 WRITE! 6, 210 ) NJK 2 D ( K ) 2 DJ ( K ) ,ACTE ( K ) , THETA! K , LCASE ) 

210 FORMAT! lHO > IX » 20HJET ELEMENTS NJ =>I3,5X,3HD = , F 10 . 6 ,5X ,4HDJ =, 
1 F 10 . 6 , 5X 2 6HACTE = ,F10 . 6 ,5X,7HTHETA =,F10.6) 

WRITE! 6, lOO ) (XB! JJ + L ) 2 L = 1,NJK) 

IF! LCASE .GT. 1 ) GO TO ZtO 
WRITE ( 6 , 110 ) (XI! JJ + L), L = l, NJK ) 

WRITE ( 6 , 120 ) !DEL( JJ + L), L = l, NJK) 

220 WRITE ! 6 , 170 ) ! BETA! JJ + L , LCASE ), L = 1 , NJK ) 

WRITE ! 6 , 180 ) ( ITYPE ( JJ + L ), L = 1 , NJK i 
JJ = JJ + NJK 
IL = 1 

I F ( NJK .EQ. 10) IL = 2 
ILINES = ILINES + 1 + 3 * IL 
IF! LCASE .EQ. 1) ILINES = ILINES + 2*IL 
230 I F! K .EQ. NROWS ) GO TO 260 
NWK1 = NW! K + l ) 

IL = 1 

I F ( NWK1 .GT. 9) IL = 2 
NEXT = 4 + 4*IL 

IF! LCASE .EQ. 1) NEXT = NEXT + 2*IL 
NJK1 = NJ! K+l ) 

IL = 1 

I F ( NJK1 .EQ. 10) IL = 2 
NEXT = NEXT + 1 
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I F ( NJK1 .EQ. 0) GO TO 240 
NEXT = NEXT + 1 + 3*1 L 
IF ( LCASE .EQ. 1) NEXT = NEXT + 2*IL 
240 IF( ( 55-ILINES) .GE. NEXT) GO TO 2t?0 
WRITE ( 6 2 250 ) 

250 FORMAT ( lHl ) 

I LINES = 1 
260 CONTINUE 
RETURN 

C****** ***************************************************************** 
END 

SUBROUTINE INCOMP( NCASES , IR ) 

THIS SUBROUTINE READS IN THE COMPOSITE CASE REQUIREMENTS 

WHICH DEFINE THE FUNDAMENTAL CASES AND THEIR DEFLECTION MAGNITUDE 

FOR SUPERPOSITION IN UP TO 24 COMBINATIONS 

COMMON/COMPOS/FACTOR ( 10,24) ,NCC 
COMMON/I NDAT/LUN 

DIMENSION FUNNY ( 10 ) ,ND( 10 ) ,NFC( 10 ) 



COMPOSITE CASE REQUIREMENTS CARDS 



CALL CLRSCRN 
PRINT * 

PRINT *, ' 

- ^ 

*> 

*, 

*, 



PRINT 
PRINT 
PRINT 
PRINT , 
PRINT *, 
PRINT *» 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT , 
PRINT *, 
PRINT *, 
PRINT * 



COMPOSITE CASES' 

THE FOLLOWING INFORMATION SPECIFIES HOW THE DATA' 

FOR FOR THE FUNDAMENTAL CASES INPUT ON THE PREVIOUS' 
CARDS, IS TO BE COMBINED TO FORM OR MODEL THE WING' 
UNDER STUDY. A MAXIMUM OF 24 COMPOSITE CASES MAY' 

BE REQUESTED.' 

YOU ! ILL BE ASKED FOR FUNDAMENTAL CASE NUMBERS AND' 
THE MULTIPLICATIVE FACTOR TO BE APPLIED TO EACH.' 

THE FUNDAMENT AL CASES ARE IDENTIFIED IN THE SAME' 
SEQUENCE AS THEY WERE INPUT, 1,2,3...' 

IF A MULTIPLICATIVE FACTOR OF 1.5 IS APPLIED TO A' 

A FUNDAMENTAL CASE WITH A HINGE DEFLECTION OF 10' 
DEGREES, THE COMPOSITE CASE WILL HAVE 15 DEGREES.' 



READ THE COMPOSITE CASE DATA, CONSISTING OF FUNDAMENTAL CASE 
DEFLECTIONS, IN DEGREES 
NCC = 0 

ENTER THE NUMBER OF COMPOSITE CASES TO BE INPUT 



HOW MANY COMPOSITE CASES WILL YOU BE ENTERING?( I ) ' 
(FOR NO COMPOSITE CASES ENTER ZERO. )' 

) NCC 

‘ 0) GO TO 100 

24) THEN 

PLEASE REENTER' 



PRINT * 

PRINT *, 

10 READ( 5, * 

IF ( NCC .EQ 
IF (NCC .GT 
WRITE ( 6,110 ) 

PRINT *, ' 

GO TO 10 
END IF 

DO 15 I = 1 ,NCC 

ENTER THE NUMBER OF FUNDAMENTAL CASES TO BE COMBINED ON THIS CASE 
PRINT *, ' HOW MANY FUNDAMENTAL CASES WILL BE COMBINED ' 

PRINT *, ' TO MAKE UP THIS COMPOSITE CASE? (MAXIMUM OF 10) 

20 READ( 5 , * ) NFC( I ) 

NFCI = NFC( I ) 

IF (NFCI .GT. 10) THEN 
WRITE (6,120) 

PRINT *, ' PLEASE REENTER' 

GO TO 20 
END IF 

READ IN THE DATA FOR EACH CARD 
DO SO N = 1 ,NFCI 
WRITE ( 6,32) I 
WRITE ( 6,33) N,NFCI 
35 READ! 5, * ) Nu( N ) 

CHECK THE VALIDITY OF THE DATA 
I F ( ND ( N ) .GT. NCASES) THEN 
WRITE ( 6,71) NCASES 



PRINT *, 

GO TO 35 
END IF 
WRITE (6,44) 

RE AD( 5 , * ) FUNNY ( N ) 
PRINT * 

30 CONTINUE 
15 CONTINUE 

32 FORMAT ( IX, 

33 FORMAT ( IX , 

44 FORMAT (IX,' 



PLEASE REENTER' 



, 12 ) 



FOR COMPOSITE CASE 

ENTER FUNDAMENTAL CASE ',12,' OF ',12,'.',/) 

^ rumiMMiA, ENTER THE MULTIPLICATIVE FACTOR FOR THIS CASE. ',12,/) 
71 FORMAT( IX, 5X, 'THE FUNDAMENTAL CASE VALUE CANNOT BE GREATER THAN ', 
112 ,/) 

TOO MANY COMPOSITE CASES HAVE BEEN REQUESTED. REENTER. 

110 FORMAT ( IX, 5X, ' A MAXIMUM OF 24 COMPOSITE CASES MAY BE INPUT.') 

120 FORMAT ( IX, 5X, 'A MAXIMUM OF 10 FUNDAMENTAL CASES MAY BE INCLUDED' 
1/,1X,5X,'0N ANY ONE COMPOSITE CASE.') 

SUMMARY GOES HERE 



WRITE DATA TO FILE 
DO 70 I = 1 ,NCC 
NFCI = NFC( I ) 

WRITE ( LUN, 40 ) ( ND( L ) , FUNNY ( L ) , L=1 ,NFCI ) 
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no no o n noon n n no 



40 FORMAT (10(BZ>I2>F6.4)) 
70 CONTINUE 



OUTPUT A 9 CARD AFTER NCC SETS OF DATA HAVE BEEN INPUT 
100 WRITE ( LUN > 102 ) 

102 FORMAT ( '9 ' J 

IR = 1 
RETURN 

*********************************************************************** 

END 

SUBROUTINE BLOWIN( JETFLG ,IR ) 

THIS SUBROUTINE READS THE SECTIONAL JET BLOWING RATES 
CMU(K) = J / (Q * CHORD( K ) J 

COMMON/MARK/NRONS ,NROWSJ ,NWT »NJT ,NMAX,NW( 40 ) ,NJ( 40 ) >IW( 40 ) ,IJ{ 40 ) 
COMMON/ JCASE/CMU( 40 ) ,CMUP l 40 ) ,CMUPP( 40 ) 

DIMENSION DCMUC40) 

COMMON/INDAT/LUN 

IF( JETFLG .NE. 0) GO TO 30 

READ THE CMU DATA ONLY FOR THOSE SECTIONS WHICH HAVE A JET 
READ( 5; 10 > END=60 ) ( DCMU( K J ,K = 1 >NROWSJ ) 

10 FORMAT ( 8F10 . 6 ) 

20 I F ( DCMU( 1 ) .LT. 800.0) GO TO 30 
IR = 2 
RETURN 

REARRANGE THE DATA INTO THE PROPER SEQUENCE 
30 KP = 0 

DO SO K = 1 »NROWS 
40 CMU) K ) =0.00 

I F ( NJ( K ) .EQ. 0) GO TO 50 
KP = KP + 1 
CMU(K) = DCMU(KP) 

50 CONTINUE 
IR = 1 
RETURN 

AN END OF FILE HAS BEEN READ. THIS RUN IS COMPLETELY FINISHED. 

60 WRITE ( 6 > 70 ) 

70 FORMAT ( 1H1///41X>37HN0 MORE CMU CASES HAVE BEEN REQUESTED) 

IR = 3 
RETURN 
END 



C 

c*********************************************************************** 
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APPENDIX E. FIGURES GENERATED USING DISSPLA 
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PROGRAM PANEL- NACA 0012 AIRFOIL 




Figure 26. Program PANEL- Shape Generated Using Airfoil Coordinates Data File 

This figure was generated using the D1SSPLA portion of EAST PLOT on the IBM 
mainframe computer. The surface coordinates for the airfoil were input to the PANEL 
program using an input data file containing 2S surface points. 
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PROGRAM PANEL- NACA 0012 AIRFOIL 

EQUATION GENERATED SHAPE 




X/C (CHORD WISE LOCATION) 



Figure 27. Program PANEL- Shape Generated Using Internal Equation for 
NACA 0012 



This figure was generated using the D1SSPLA portion of EASYPLOT on the IBM 
mainframe computer. The surface coordinates for the airfoil were generated by the 
PANEL program using the internal equation for NACA XXXX series airfoils. Twenty 
points were used to describe the surface. Despite using fewer points to define the sur- 
face, there is virtually no difference between this plot and the one on the preceding page 
which used actual airfoil surface data. 
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PROGRAM PANEL- NASA LS(l)-0013 




t ■ ' ■ 

0.00 0 0.12 6 0.2 5 0 0.375 0.50 0 0.62 5 0.750 0.875 1.00 0 

X/C (CH0RDW1SE LOCATION) 



Figure 28. Program PANEL- Shape Generated Using DATA Statements for 
NASA LS( 1 )-00 13 



This figure was generated using the D1SSPLA portion of EAS^PLOl on the IBM 
mainframe computer. Tire surface coordinates for the airfoil were input to the PANEL 
program using the DATA statement entry method. The DATA statements for the 
NASA LS(1)-0013 within the PANEL program contain coordinates for 2S surface lo- 
cations. This plot is nearly identical to that found in Ref. 18. 
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NACA 0012 k NASA LS(l)-0013 




Figure 29. Program PANEL- Comparison of Shapes Generated for NACA 0012 
and NASA LS(1)-0013 



This figure compares the shapes of the NACA 0012 and NASA LS(1)-0013 airfoils. 
The actual surface coordinates were used for this plot. Again, this plot is nearly identical 
to a similar plot found in Ref. IS. 
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PROGRAM PANEL- NACA 0012 AIRFOIL 




Figure 30. Program PA.NEL-Surface Pressure Distribution for NACA 0012 

This figure was generated using the D1SSPLA portion of EAS^lPLOT on the IBM 
mainframe computer. The pressure distribution is for the NACA 0012 airfoil defined 
by an input data file containing 2S surface points at an angle of attack of six degrees. 
The results of the program run are repeated below. 



DATA FILE: PPRESS.DAT 

ANGLE OF ATTACK IN DEGREES = 6. 000 

CD = 0.00387 CL = 0.70980 CM =-0.17750 CMC 4 =-0.00092 
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PROGRAM PANEL- NACA 0012 AIRFOIL 

EQUATION GENERATED SHAPE 




Figure 31. Program PANEL- Surface Pressure Distribution for NACA 0012 Gen- 
erated by the Internal Equation 

This figure was generated using the DISSPLA portion of EASYPLOT on the IBM 
mainframe computer. The pressure distribution is for the NACA 0012 airfoil defined 
by the interna] equation using 2S surface points, at an angle of attack of six degrees. 
The results of the program run are repeated below. A slight difference is noted between 
the plots and the values obtained. This is due largely to the difference in the number 
of data points used and the spline interpolation used by the plotting routine. 



DATA FILE: PPRESS.DAT 

ANGLE OF ATTACK IN DEGREES = 6. 000 

CD = 0.00721 CL = 0.72235 CM =-0. 18377 CMC4 =-0. 00398 
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PROGRAM PANEL- NASA LS(l)-0013 




Figure 32. Program PANEL- Surface Pressure Distribution for NASA LS( 1 )-00 1 3 

This figure was generated using the DISSPLA portion of EAST PLOT on the IBM 
mainframe computer. The pressure distribution is for the NASA LS(1)-0013 airfoil de- 
fined by a set of DATA statements containing 2S surface points at an angle of attack 
of sLx degrees. The results of the program run are repeated below. 



DATA FILE: PPRESS.DAT 

ANGLE OF ATTACK IN DEGREES = 6.000 

CD = 0.00324 CL = 0.69366 CM =-0.16505 CMC4 = 0.00750 
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SPANWISE LIFT DISTRIBUTION 

USING VORTEX LATTICE SOLUTION 
COSINE SPACING 
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Figure 33. Program YORLAT- Spanwise Lift Distribution Using Cosine Spacing 



This figure was generated using DISSPLA and running the PLOTSPAN program 
on the IBM mainframe computer. The spamvise lift distribution is shown for a Hat 
rectangular wing of aspect ratio 2 at an angle of attack of six degrees. The results of the 
YORLAT program run are repeated below. (The PLOTSPAN program is located on the 
AERO disk of the IBM mainframe.) 



** COSINE GRID SPACING ** 



NX= 5 NY= 10 ASPECT RATIO = 2. 00 ANGLE OF ATTACK = 6. 00 



CL = 0. 25905 

CD = 0.0106492 

CD/CL2 = 0. 1587 
CMLE = -0.055061 

XCP = 0. 21255 
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SPAN WISE LIFT DISTRIBUTION 

USING VORTEX LATTICE SOLUTION 
UNIFORM GRID 




Figure 34. Program YORLAT- Spanuise Lift Distribution Using Uniform Grid 



This figure was generated using DISSPLA and running the PLOTSPAN program 
on the IBM mainframe computer. The spanwise lift distribution is shown for a fiat 
rectangular wing of aspect ratio 2 at an angle of attack of six degrees. The results of the 
YORLAT program run are repeated below. 



** UNIFORM GRID SPACING ** 



NX= 5 


NY= 10 ASPECT RATIO = 2. 00 


ANGLE OF ATTACK = 


CL = 


0. 25711 




CD = 


0. 0105673 




CD/CL2 = 


0. 1598 




CMLE = 


-0. 054301 




XCP = 


0. 21119 
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